aloah
ich hab mir mal überlegt ob es nicht lustig wäre wenn der benutzer eines programmes das programmlayout nicht selber bestimmen könnte
das hab ich anhand eines buttons ausprobiert:
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
var Pos:TPoint;
begin
GetCursorPos(Pos);
Button1.Left:=Pos.X - 250;
Button1.Top:=Pos.Y - 250;
end;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled:=True;
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled:=False;
end;
allerdings ist jetzt mein problem das ich dem button keine funktion mehr zuweisen kann, da wenn ich ihn verschieben will diese funktion aufgerufen wird....
gibts da vllt noch irgendeine eigenschaft mit der man das regeln kann, dass z.b. die funktion eine buttons nicht ausgeführt wenn er eine sekunde oder länger gedrückt wird?