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.

[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.

Spaß beiseite, will be fixed in next release.

[EDatabaseError]

ok danke

[xZise]

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.