TInfoBox - eine InfoBox direkt auf dem Desktop

[3_of_8]

Morgen.

Ich stand gerade vor dem Problem: Wie kriege ich eine Reihe von Komponenten auf den Desktop?

Nach und nach kam mir die Idee: Warum nicht die Komponenten in ein Panel packen und das mit der WinAPI bearbeiten.

Und hier ist mein TDesktopPanel.

Es kann in der Entwurfszeit auf einem Formular platziert und mit Komponenten bestückt werden. Zur Laufzeit wandert es dann auf den Desktop und kann mit Left/Top/Width/Height platziert/skaliert werden.

Hinweis: Das TDesktopPanel kann NICHT den Fokus erhalten. Ebensowenig alle Komponenten, die darauf sind. Man kann zwar Edits usw. drauftun, nur reinschreiben geht mangels Fokus nicht. Dafür muss man dann eine Form mit BorderStyle=bsNone verwenden.

Zwei Bugs sind noch drin:
1. Die Form zeichnet bei der Verschiebung des Panels immer noch die Scrollleisten, die einzige Möglichkeit, die da wohl funktioniert ist, bei der Form beide Scrollleisten auf Visisble=False zu stellen. Wenn jemand eine bessere Idee hat, nur her damit.

2. Es gibt ein leichtes Flimmern, wenn die Form in den Vordergrund geholt wird bei WM_MOVE. Wie man das behebt, weiß ich nicht, ich bin aber für Vorschläge offen.

[EDatabaseError]

Öhm, hast du jetzt ma die Sourcen wie ich das Ding anwenden kann

Mfg
Tobi

[Nils_13]

Zitat von EDatabaseError:

Öhm, hast du jetzt ma die Sourcen wie ich das Ding anwenden kann

Mfg
Tobi

Genau, wir wollen Codes sehen. Oder erklär mal, wie man sie erstellt. Ich habe es mit

Delphi-Quellcode:

bla := InfoBox.Create;
bla.bla2.bla3;

gemacht.

[3_of_8]

Also ich würde es im Formulardesigner auf ne Form ziehen und dann Komponenten draufpacken. Angezeigt wird es dann einfach mit InfoBox.Show;

Allerdings kann mans natürlich auch zur Laufzeit erstellen, wenn man will.

Delphi-Quellcode:

InfoBox:=TInfoBox.Create(nil);
InfoBox.Width:=160;
InfoBox.Height:=100;
lbl:=TLabel.Create(InfoBox);
lbl.Left:=8;
lbl.Top:=8;
lbl.Caption:='Blubb';
InfoBox.Show;

[Nils_13]

Und wie gebe ich die Komponente wieder frei ? Mit oder ohne Freigabe bekomme ich beim Beenden des Programms eine AV.

[Meflin]

Zitat von Nils_13:

Und wie gebe ich die Komponente wieder frei ?

wie alles mit Blubb.Free

[EDatabaseError]

Zitat von 3_of_8:

Also ich würde es im Formulardesigner auf ne Form ziehen und dann Komponenten draufpacken. Angezeigt wird es dann einfach mit InfoBox.Show;

Allerdings kann mans natürlich auch zur Laufzeit erstellen, wenn man will.

Delphi-Quellcode:

InfoBox:=TInfoBox.Create(nil);
InfoBox.Width:=160;
InfoBox.Height:=100;
lbl:=TLabel.Create(InfoBox);
lbl.Left:=8;
lbl.Top:=8;
lbl.Caption:='Blubb';
InfoBox.Show;

und wie sieht das in einer Anwendung aus??? So wie in deinem Periodensystem als Hint könnte ichs nämlich gebrauchen

[Nils_13]

Zitat von Meflin:

Zitat von Nils_13:

Und wie gebe ich die Komponente wieder frei ?

wie alles mit Blubb.Free

AV ist AV.

1. Muss ich die Komponente und die Instanz freigeben
2. Steht hier doch das Problem:

Zitat:

Mit oder ohne Freigabe bekomme ich beim Beenden des Programms eine AV.

Ich brauche die InfoBox außerdem für eine Listbox, von jedem Item sollen Sachen ausgelesen werden. Ein kleines Kurztutorial oder Codebeispiel wäre wirklich hilfreich. Du hast doch einen Webspace, also liegt da nicht das Problem.

[3_of_8]

Also wenn du die Listbox in die Infobox tun willst, dann geht das nicht. Da musst du ne eigene Form nehmen. Denn Fokus in einem Panel ohne Parent - das kann nicht gut gehen.

[Nils_13]

Ich will die Infobox doch nur an der richtigen Stelle mit .Show anzeigen, ohne die Listbox in die Infobox zu packen.

[3_of_8]

Dann gehts.

Sorry, ich dachte irgendwie das ganze wäre selbsterklärend.

Du musst nur Labels auf die InfoBox packen, oder Images usw... Alles was keinen Fokus braucht.

Mit Show zeigst du sie dann an und mit Hide verbirgst du sie wieder.

Sorry, aber wozu ein Beispielprojekt?