Panel Dynamisch erzeugen und in Panel anzeigen

[hedie]

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?