Deutsches Lazarusforum

Mach mal ein Tut, wir können hier nicht immer bei Adam und Eva anfangen ;-)
http://www.delphi-treff.de/tutorials/vcl/mein-erstes-delphi-programm/page/8/" onclick="window.open(this.href);return false;

Ah, super. Ich hab schon ein paar Delphi- und Lazarus-Tutorials durch, aber das hab ich noch ...

theo hat geschrieben:Datei -> Neues Formular ?

Das hab ich probiert. Aber beim Ausführen wird bei mir nur ein Formular angezeigt. Außerdem werden beide Formulare in verschiedenen Units deklariert und ich hab leider keine Ahnung, wie ich die zwei kommunizieren lassen kann.

Harry

Hallo,

im Dialog-Teil der Komponentenpalette gibt's eine Menge vorgefertigter Dialoge. Ich brauche aber einen etwas komplizierteren eigenen Dialog (respektive Unterfenster), der gleich auch noch etwas Arbeit verrichtet. Gibt's eine Möglichkeit, Unterfenster ähnlich zusammen zu stellen wie das ...

Hallo,

im OnShow-Event des TForms setze ich die Zeichenstile für ein TImage darin:

procedure TForm1.FormShow(Sender: TObject);
begin
Image1.Canvas.Brush.Color := clYellow;
Image1.Canvas.Brush.Style := bsSolid;
end;

Wenn ich allerdings im OnPaint-Event des TImage etwas zeichne, dann werden ...

Das Problem ist glaube ich das manche Systemen (wie zb QT) kein Zeichnen ausserhalb das Paint-event erlauben. Es ist besser wann moeglich TPaintBox zu nutzen.

Ich arbeite unter Mac OS mit Carbon. Hier kann man -- laut einem Wiki-Eintrag -- anscheinend tatsächlich nicht außerhalb des jeweiligen ...

OK, danke, hab's.

Ein Panel scheint ja keinen OnPaint-Event zu haben (jedenfalls bietet mir Lazarus keinen an). Aber wenn ich in das Panel eine TPaintBox setze und in deren OnPaint-Event zeichne, dann klappt alles wunderbar.

Hab's bisher immer nur im OnPaint-Event des TForms versucht.

Harry

Kann man in den Canvas eines TPanel etwas zeichnen? Ein Panel1.Canvas.Rectangle(0,0,50,50) hat leider nichts gebracht.

Harry