Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
myBgLayer := TPaintBox.Create(Self);
myBgLayer.Parent := Form1;
myBgLayer.Show;
with myBgLayer do
begin
Align := alCustom;
Cursor := crHelp;
// Default-Eigenschaftem für die PaintBox :
Width := 200;
Height := 200;
// Rechteck malen :
with Canvas do
begin
MoveTo(10, 10);
Pen.Color := clBlue;
Rectangle(10, 10, 100, 100);
end;
end;
end;
funzt soweit , jedoch - rechteck malen -
wird nicht ausgeführt
füge ich den code - rechteck malen -
jedoch in ein button onclick ereignis
dann funzt es
komisch
was ist falsch ?
