Forum: Win32/Win64 API (native code)
Delphi
by SirThornberry,
18. Jun 2005
und was spricht gegen
procedure Tfrm_main.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
image1.Picture:=img_btn_normal.Picture;
Label1.Top:=Label1.Top-2;
Label1.Left:=Label1.Left+1;
Forum: Win32/Win64 API (native code)
Delphi
by SirThornberry,
18. Jun 2005
warum shift, du hast doch den Parameter "Button"
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
end;
end;
Forum: Win32/Win64 API (native code)
Delphi
by SirThornberry,
18. Jun 2005
im OnMouseDown und OnMouseUp bekommst du doch als Parameter welcher Mousebutton down bzw. up ging. Reagiere in den Events also nur wenn sie durch den linken Mousebutton ausgelöst wurden.