Komponenten einfrieren

[Christian18]

Hallo,

kann man in Delphi die Komponenten einfrieren? Damit ich die zu Laufzeit auf der Form verschieben kann? Ich möchte, wenn man Strg und Alt Drückt und dann noch eine Komponente via MouseDown aktiviert, dass man diese dann verschieben kann.

[DeddyH]

Meinst Du so etwas?

Delphi-Quellcode:

procedure TFormMain.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssAlt in Shift) and (ssCtrl in Shift) then
    begin
      ReleaseCapture;
      Button1.Perform(WM_SYSCOMMAND,$F012,0);
    end;
end;

[Christian18]

Hey genau das meine ich. Ich probiere das schon seit einer Stunde und habe schon was weiß ich wieviel code getippt. Das es mit so ein paar zeilen getan ist, hätte ich nicht gedacht. Vielen dank.

MFG Christian18

[Fussball-Robby]

Zitat:

Zitat von Christian18

Ich probiere das schon seit einer Stunde und habe schon was weiß ich wieviel code getippt.

Ich will ja nicht böse sein, aber hättest du 13,5 Sekunden gesucht, hättest du in der CodeLib das hier gefunden :wink:

[Christian18]

Ich habe die Suche probiert, aber nichts gefunden. Wahrscheinlich habe ich die falschen Schbegriffe eingeben.

Ich habe gerade gesehen, dass man das nicht mit allen Komponenten machen kann. Wie geht das denn mit einem Label oder so?

[Fussball-Robby]

Das geht nur bei Objekten, die ein Handle haben, z.B. Panels, Edit usw. Und Labels haben kein Handle.

[DeddyH]

Aber StaticText hat ein Handle.

[Fussball-Robby]

Du könntest es natürlich auch einfacher machen, indem du in einer Variable speicherst, ob die Maustaste gedrückt ist. Ich hab bei den Schweizern ein Beispiel gefunden :wink:
Das geht dann übrigens bei allen Objekten, die ein OnMouseDown/Up/Move haben.

Mfg