How to make Form movable if BorderStyle = bsNone? - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

How to make Form movable if BorderStyle = bsNone?

err0rerr0r Posts: 7Member
[b][red]This message was edited by err0r at 2006-4-9 13:41:43[/red][/b][hr]
subj.
and 1 more thing:
is there any way to limit EditBox only to numbers ?


Comments

  • zibadianzibadian Posts: 6,349Member
    : [b][red]This message was edited by err0r at 2006-4-9 13:41:43[/red][/b][hr]
    : subj.
    : and 1 more thing:
    : is there any way to limit EditBox only to numbers ?
    :
    :
    :
    EditBox: write a OnKeyPressed() event, which throws away the key (set Key to #0) if the Key is a non-valid character.
  • err0rerr0r Posts: 7Member
    : : [b][red]This message was edited by err0r at 2006-4-9 13:41:43[/red][/b][hr]
    : : subj.
    : : and 1 more thing:
    : : is there any way to limit EditBox only to numbers ?
    : :
    : :
    : :
    : EditBox: write a OnKeyPressed() event, which throws away the key (set Key to #0) if the Key is a non-valid character.
    :
    thanks again :)
  • jamesb800jamesb800 Posts: 105Member
    : [b][red]This message was edited by err0r at 2006-4-9 13:41:43[/red][/b][hr]
    : subj.
    : and 1 more thing:
    : is there any way to limit EditBox only to numbers ?
    :
    :
    :

    You can use this to move the form:
    [code]
    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    begin
    ReleaseCapture;
    Form1.perform(WM_syscommand, $F012, 0);
    end;
    [/code]

    James

  • err0rerr0r Posts: 7Member
    : : [b][red]This message was edited by err0r at 2006-4-9 13:41:43[/red][/b][hr]
    : : subj.
    : : and 1 more thing:
    : : is there any way to limit EditBox only to numbers ?
    : :
    : :
    : :
    :
    : You can use this to move the form:
    : [code]
    : procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
    : Shift: TShiftState; X, Y: Integer);
    : begin
    : ReleaseCapture;
    : Form1.perform(WM_syscommand, $F012, 0);
    : end;
    : [/code]
    :
    : James
    :
    :
    Thanks!
Sign In or Register to comment.