Windows Icon

[Willie1]

Hallo Leute,
ich bin immer noch mit dem Umzug von D 2005 zu Delphi Berlin beschäftigt und erlebe Überrascungen.

Ich will eine Windows Ikone - hier das weiße ? auf blauem Grund - auf ein eigenes Fenster plazieren. Ich gehe so vor:

Delphi-Quellcode:

procedure TForm2.FormPaint(Sender: TObject);
var
  Icon: TIcon;
begin
  Icon:=TIcon.Create;
  Icon.Handle:=LoadIcon(0,IDI_QUESTION);
  if Icon.Handle > 0 then Form2.Canvas.Draw(25,35,Icon); //<------
  Icon.Free
end;

Das klappt, wenn ich das Fenster statisch anlege. Falls ich es dynamisch anlege, so:

Delphi-Quellcode:

    with TForm2.Create(Form1) do
      try
        aw:=ShowModal;
      finally
        free
      end;

dann kracht es in der markierten Zeile: Zugriffsverletzung. Ich verstehe, das Fenster ist für Paint (noch) nicht bereit. Ich habe es mit OldOrderCreate=true versucht, bringt aber nichts. Aber warum hat es mit Delphi 2005 funktioniert!?

Gruß Willie..

[Sherlock]

Ich behaupte mal, es liegt am with .

Sherlock

[Jasocul]

Delphi-Quellcode:

procedure TForm2.FormPaint(Sender: TObject);
var
  Icon: TIcon;
begin
  Icon:=TIcon.Create;
  Icon.Handle:=LoadIcon(0,IDI_QUESTION);
//  if Icon.Handle > 0 then Form2.Canvas.Draw(25,35,Icon); //<------
  if Icon.Handle > 0 then Canvas.Draw(25,35,Icon); //<------
  Icon.Free
end;

So sollte es theoretisch funktionieren.

[Willie1]

Hallo Jasoul, das ist die Lösung!

Hallo Sherlock,

Zitat:

Ich behaupte mal, es liegt am with .

diesen "Trick" habe ich mir Jahren ausgedacht, er funktioniert prima.

Tschüss und danke
Willie.

[himitsu]

Zitat:

Form2.xxx

Du erstellst die Form manuell, setzt diese Variable nicht und wunderst dich, dass es beim Zugriff darauf knallt?

Abgesehn davon, dass man innerhalb der eigenen Klasse "niemals" auf diese Variable zugreifen sollte.