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.

[Dax]

Zu dem ersten Bug: statt des SetParent nimm lieber sowas:

Delphi-Quellcode:

Parent := new TWinControl.CreateParented(GetDesktopWindow);
Windows.SetParent(HAndle, GetDesktopWindow);

Den zweiten kann ich garnicht nachvollziehen :gruebel:

Bleibt trotzdem noch die Frage - für ist sowas gut?

[3_of_8]

new TWinControl.CreateParented? :gruebel:

Und: Ich verwende es zum Beispiel für sowas in der Art wie Hinweisboxen, auf die man aber alles mögliche drauschmeißen kann, also die man frei gestalten kann zur Entwicklungszeit.

EDIT: Ich forme die Kompo mal um zur einer "TInfoBox" und poste sie dann nochmal.

[3_of_8]

Ich habe es jetzt mal als TInfoBox implementiert. Einfach Show aufrufen, wenn sie gezeigt werden soll.

[DP-Maintenance]

Dieses Thema wurde von "Chakotay1308" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Open-Source" verschoben.

[Meflin]

Aloa!

Wie wärs mit einem Screenshot, bzw einer Demo-Exe :stupid: ?

[Neutral General]

Die InfoBox-Unit wird nicht klappen wenn du die Trans.pas nicht mitlieferst oder die procedure nicht in die InfoBox.pas reinpackst ;)

[EDatabaseError]

:stupid: jetzt baut er die Trans.pas in alles ein :lol:

[3_of_8]

Nein.

Der Hint in meinem Periodensystem IST eine TInfoBox. Die war von Anfang an dafür geplant.

Und ich mach das gleich alles, moment.

[EDatabaseError]

cool. ab welcher version läuft die tinfobox??? D3??? Diese Kompo gefällt mir nämlich ;-)

[3_of_8]

Frag mich nicht, ich kanns nur mit D7 testen. Probiers halt aus.

[EDatabaseError]

OnLine 85 Kann er Mouse nicht finden und DoubleBuffred im Create hab ich mal ge//

Dann eben noch die Trans ins gleiche verzeichnis also schau mal was sich in line 85 machen lassen kann.

Mfg
Tobi

[3_of_8]

Binde mal Controls ein, dann dürfte das mit Mouse funktionieren.

[EDatabaseError]

ist schon eingebunden. Kennt mein D3 leider nicht

[3_of_8]

WinAPI is was tolles... Neue Version im Anhang 1. Beitrag, die dürfte auch bei dir gehen.

(Nur das DoubleBuffered musste noch raustun)

[EDatabaseError]

im ersten Beitrag ist das Panel aber nicht die infobox???

//Edit schneller als die polizei erlaubt ;-)

[EDatabaseError]

Element " hat kein übergeornetes Fenster.

Wenn ich es in ein Form einfügen will. An wem liegts ;-)

[3_of_8]

An dir. :stupid:

Spaß beiseite, will be fixed in next release.

[EDatabaseError]

ok danke

[xZise]

Zitat:

Zitat von EDatabaseError

OnLine 85 Kann er Mouse nicht finden

Siehe dsdt:

Zitat:

Bis einschließlich Delphi 3 steht TMouse nicht zur Verfügung. Hier kann folgender Code verwendet werden.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  P: TPoint;
begin
  GetCursorPos(P);
  Label1.Caption := IntToStr(P.X);
  Label1.Caption := IntToStr(P.Y);
end;

[Quelle]

@ Topic: Das scheint ja eine interssante Kombo zu sein... Ich werds mir mal anguggen.

[3_of_8]

@xZise: Das habe ich schon geschrieben. ;)

[3_of_8]

@EDE: Dein Problem ist gefixt.

[EDatabaseError]

jup es tut! :firejump:

könntest du noch ein Anwendungsbeispiel posten ;-)

[3_of_8]

Ich mach das mal, wenn ich Zeit hab. Wahrscheinlich heute noch.

[xZise]

Zitat:

Zitat von 3_of_8

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.

Das Panel so resizen, dass es genau auf die Form passt?

Zitat:

Zitat von EDatabaseError

jup es tut! :firejump:

könntest du noch ein Anwendungsbeispiel posten ;-)

Siehe Hydrogenium ein periodensystem

[EDatabaseError]

Mit source ;-)

[xZise]

Zitat:

Zitat von EDatabaseError

Mit source ;-)

Aso :D

[3_of_8]

Zitat:

Zitat von xZise

Zitat:

Zitat von 3_of_8

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.

Das Panel so resizen, dass es genau auf die Form passt?

Du verstehst das Problem nicht.
Die Form tut einfach so, als ob das Panel ihr immer noch gehören würde und zeichnet bei X/Y-Werten, bei denen X+InfoBox.Width>Form.Width oder Y+InfoBox.Height>Form.Height einfach Scrollleisten.

[xZise]

Genau!
Dann könntest du ja sagen:

Delphi-Quellcode:

if InfoBox.Height + Y > Form.Height then
  InfoBox.Height := Form.Height - Y;
if InfoBox.Width + X > Form.Width then
  InfoBox.Width := Form.Width - X;

Und das meinte ich auch...
Dann hast du das Scrollleisten-Problem gelöst.

[3_of_8]

Das wäre aber nicht der Sinn der Sache.

Dann würde sich nämlich meine InfoBox verformen, was sie ja nicht soll.

[EDatabaseError]

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

Mfg
Tobi

[Nils_13]

Zitat:

Zitat von EDatabaseError

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

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:

Zitat von Nils_13

Und wie gebe ich die Komponente wieder frei ?

wie alles mit Blubb.Free :gruebel:

[EDatabaseError]

Zitat:

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;

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

[Nils_13]

Zitat:

Zitat von Meflin

Zitat:

Zitat von Nils_13

Und wie gebe ich die Komponente wieder frei ?

wie alles mit Blubb.Free :gruebel:

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?