canvas geht bei on show nicht

[ferby]

Hallo,

Ich möchte das bevor man das Formular sieht etwas gezeichnet wird,
ich habe es schon mit oncreat und onshow probiert, aber es tut sich nichts, an was kann das liegen?

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  paint.Canvas.Pen.Color := clred;
  paint.Canvas.Rectangle(0, 0, 300, 300);
end;

wenn ich den quelltext bei einen buttonklick auslöse dann gehts......

[Binärbaum]

Was ist Paint in deinem Projekt? Eine PaintBox?

Setze die Anweisungen doch einfach ins OnPaint- Ereignis (heißt ja schon extra so).

MfG
Binärbaum

[ferby]

hallo,

onpaint habe ich noch nie benützt.

[sniper_w]

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Color := clred;
  Canvas.Rectangle(0, 0, 300, 300);
end;

Genau wie FormShow...(und alle andere)

[himitsu]

Zitat:

Zitat von ferby

hallo,

onpaint habe ich noch nie benützt.

Das ist aber kein Grund es jetzt nicht zu benutzen, denn onPaint wird immer dann aufgerufen, wenn irgendwas neu gezeichnet werden muß.

z.B. wird onShow nicht aufgerufen, wenn vor deinem Programm ein anderes Programm war/ist und dann verschwindet ...