Moin Deven...
Wenn du eine schnelle Antwort willst, dann mach es den leuten nicht so schwer. Niemand hat Lust sich in X Seiten Quellcode hineinzuversetzen.
Ich habe mir auch nicht die Mühe gemacht alles zu lesen, geschweige nachzuvollziehen. Vielleicht hilft dir dies aber trotzdem weiter...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var MyPanel: TPanel;
MyImage: TImage;
begin
MyPanel:=TPanel.Create(Form1);
with MyPanel do
begin
width:=60;
height:=60;
top:=20;
left:=20;
parent:=Form1;
end;
MyImage:=TImage.Create(Form1);
with MyImage do
begin
width:=40;
height:=40;
top:=10;
left:=10;
parent:=MyPanel;
end;
end;
Bis denne...
Der frühe Vogel fängt den Wurm, richtig.
Aber wird nicht auch der frühe Wurm vom Vogel gefressen?