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.

[_frank_]

ahja...dachte das wird eh überschrieben...na gut, jedenfalls funktioniert es.

was dringend geändert werden muss: nicht genau auf die Mausposition setzen sondern, versetzt min 1 px, da man sonst auf dem form nicht mehr arbeiten kann, bis man die box ausblendet...
ansonsten fällt mir auf, dass auf dem form selber scrollbars auftauchen (ich will die jetzt mal nicht deaktivieren, da da ein fehler vorliegt), selbst wenn die IB noch innerhalb des forms ist...

Gruß Frank

[3_of_8]

Das mit der Mausposition ist schon behoben, ich lad gleich die neue Version hoch (warte noch 5 Min oder so).

Das mit den Scrollleisten ist mir bekannt, allerdings weiß ich nicht, wie ich es beheben soll. Das habe ich ganz weit vorne im Thread auch schon geschrieben. Am besten du deaktivierst die Scrollleisten, so hab ichs in Hydrogenium auch gemacht.

[fylo]

Moin,

hab gerade mal probiert, deine TInfobox zutesten. Doch leider findet er bei mir keine trans.dcu bzw. trans.pas :!:
Wo kann man diese downloaden bzw. kannst du sie nicht mitliefern oder wenigsten einen Link oder Bemerkung beifügen :gruebel:

[xZise]

So... Ich habe endlich auch eine Anwendung für deine TInfoBox gefunden :D

Zuerst: Es ist genial ^^ Einfach Hintfarbe kopieren und einsetzen... zack: Ein ImmerDaHint xD

Aber ich habe das Problem, dass ich es auf einer TPaintbox anzeige.
Im OnEnter zeigt er es an und im OnLeave blendet er es aus.
Soweit gut... Problem : Manchmal kommt die Maus auf die InfoBox!
Und Zack! => OnLeave => Ausblenden... Aber jetzt isse ja wieder auf der TPaintbox => OnEnter => Einblenden => ??? Aber jetzt blendet er es nicht an der Maus wieder ein, sondern am alten Punkt, wo er ausgeblendet hat... Also alles von vorn => OnLeave => ...

Das Beispiel ist hier schon online: http://www.delphipraxis.net/internal...ct.php?t=97474

Mein Tipp: Bau eine Property ein: "FollowMouse" ;) Dann weißt du immer, wo die Box hinsoll! Ich habe mal den Code überarbeitet (FollowMouse).

PS: Wie wäre es mit Schatten?
PPS: Ich weiß wie alt das Thema is ^^

[edit]Ähm... das tuts irgendwie net :/[/edit]

[3_of_8]

Wieso überprüfst du nicht einfach im OnLeave, ob die Maus sich noch über deiner PaintBox befindet oder nicht?

[xZise]

Naja... Eigentlich brauche ich es nicht überprüfen, aber deine Box macht es nötig ... Nur finde ich nirgends ein Fehler, warum sich die Box nicht bewegt...

[3_of_8]

Zwei Tipps:
1. Fadenkreuz-Cursor. Dann verdeckt der Cursor nicht ständig die Box.
2. Die Box immer 1 Pixel weiter rechts und unten platzieren als die Maus. Dann passiert das nicht mehr.

[xZise]

Zitat:

Zitat von 3_of_8

1. Fadenkreuz-Cursor. Dann verdeckt der Cursor nicht ständig die Box.

Je nachdem welchen Cursor man dafür hat ;)

Zitat:

Zitat von 3_of_8

2. Die Box immer 1 Pixel weiter rechts und unten platzieren als die Maus. Dann passiert das nicht mehr.

Das macht doch schon dein Code so ;)

[3_of_8]

Dann dürfte dein Problem doch gar nicht auftreten. *kratz*