Vielen Dank...
Diese Zeile hab ich nicht geschrieben...
dynButton.ParentWindow := Panel3.Handle;
Aber da drängt sich nun bei mir eine Frage auf.
Ich muss folgende Codes bei den Ereignissen aufrufen:
OnMouseDown
Delphi-Quellcode:
// Mausereignisse abfangen
ReleaseCapture;
// mit TWinCotrol verschieben, $F012 verschiebt den Button
TWinControl(Sender).Perform(WM_SYSCOMMAND, $F012, 0);
OnMouseMove
Delphi-Quellcode:
var
cursorpos:TPoint;
begin
GetCursorPos(cursorpos);
panel5.Caption := ( inttostr((cursorpos.y-Form1.Top-(GroupBox1.Top+Panel3.Top+Panel5.Top+28+Panel5.Height))));
if (cursorpos.y-Form1.Top-(GroupBox1.Top+Panel3.Top+Panel5.Top+27+Panel5.Height)) = 1 then Panel5.Cursor:=crSizeNS;
if (cursorpos.y-Form1.Top-(GroupBox1.Top+Panel3.Top+Panel5.Top+27+Panel5.Height)) <> 1 then Panel5.Cursor:=crDefault
Ich denke mal, das wenn ich da diesen Code Jedesmal in das On.... Ereigniss der Panels schreibe
wird das doch etwas Lastig und ich müsste ja auch z.B. bei OnMouseMove das Panel5.Height ind
PanelXY.Height umändern und wie ich dies Dynamisch machen soll weis ich nicht.
Hast du eine idee wie ich dies Eleganter lösen könnte?
@Fussbal-Robby
Ziel ist es ein Virtuelles Display zu schafen auf welchem
man Buttons, Labels usw. Wie in Delphi Verschieben
erzeugen, resizen und definieren kann.
Dazu fällt mir leider keine bessere Lösung ein.. Dir etwa?
