TInfoBox - eine InfoBox direkt auf dem Desktop

[Nils_13]

Weil es zu Fehlern beim Beenden kommt.

[3_of_8]

Glaskugel in Reparatur, bitte Code zeigen. ;)

[Nils_13]

Delphi-Quellcode:

iib := ib.Create(listbox); // iib = Instanz; ib = InfoBox

genügt.

[3_of_8]

So, tut es das?

Mir jedenfalls nicht.

Du erzeugst eine Instanz mit deiner Listbox als Ownder.

Was hilft mir das weiter? Richtig, gar nichts.

[Nils_13]

Hehe, ich meinte genügt für eine AV beim Beenden.

[3_of_8]

Also du machst folgendes:

iib := TInfoBox.Create(listbox);

Du bist dir sicher, dass die Listbox schon instantiiert ist?

Also ich hab einfach mal ne Form gebastelt, Listbox draufgeworfen, ins OnCreate...

Delphi-Quellcode:

var InfoBox: TInfoBox;
begin
InfoBox:=TInfoBox.Create(listbox1);
end;

...reingeschrieben. Funzt perfekt. Keine AV. Muss woanders dran liegen.

[_frank_]

wollte das auch mal probieren, aber leider zeigt es nix an...(auch keine AV)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ib:=TInfobox.Create(self);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ib.Hide;
  ib.Width:=160;
  ib.Height:=100;
  with TLabel.Create(ib) do
  begin
    parent:=ib;
    Left:=8;
    Top:=8;
    Caption:='Blubb';
  end;
  ib.Show;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if assigned(ib) then ib.free;
end;

warum (nicht D3-kompatibel, Doublebuffered ist raus, sonst nichts verändert)?

Gruß Frank

[3_of_8]

Lass mal das Free im FormDestroy weg, das macht die Form automatisch, da sie der Owner ist.

Dein Problem überprüfe ich mal.

[_frank_]

ich bekomme keine AV!

es wird keine infobox angezeigt beim buttonclick...

[3_of_8]

Ich weiß, dass du keine kriegst. Lass es trotzdem weg, es ist unnötig.

Zu deinem Problem: So komisch es klingt: Du musst ein Parent zuweisen.

Pack ein...

Delphi-Quellcode:

ib.Parent:=Self;

...in das FormCreate und dann gehts auch.