Hi,
sorry ich hatte ganz vergessen, das man auf den Canvas eines Objektes nicht zur erstellzeit zugreifen kann, nur vorher und hinterher. Aber das stützt nur meine aussage, probiere lieber die "saubere" Variante!
Ansonsten, hat dieser Code bei mir funktioniert. Ich lasse einen Timer loslaufen, der nach dem erstellen der Form abgelaufen ist und ich somit wieder zugriff auf die Grafischen Eigenschaften der Form habe.
hoffe das hilft.
greez
gabneo
PS: unsaubere lösung:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 =
class(TForm)
Timer1: TTimer;
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
form2.show;
Timer1.Interval:=100;
Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false;
form1.Hide;
end;
end.