Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
12. Aug 2018
Gern geschehen und gut das Du es für Deine Zwecke anpassen konntest.
Ich meinte mit meiner "gezielten" Abfrage keinen Konflikt sondern nur bestimmte ComboBoxen auszuwerten, vielleicht will man nur eine bestimmte auf diese Weise "abarbeiten" lassen und andere sollen stumm bleiben.
Das Du das OnIdle Event an und ausschaltest ist auch völlig in Ordnung wobei mir EraseHint; nicht bekannt ist....
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
12. Aug 2018
Alternativ kannst Du natürlich auch Label1.Caption := buf; mit einer Funktion/Procedure ersetzen was Dir den Output vorbereitet und irgendwo hin sendet.
So umgehst Du zumindest die SubClass / CustomCombo etc Problematik.
Über der Zeile GetClassName(wnd, buf, SizeOf(buf)); könntest Du die Abfrage auch noch vertiefen/konkretisieren (wnd := WindowFromPoint(pt); mit einem bestimmten Control...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
11. Aug 2018
Ich gebe Dir ein Beispiel okay, da ich Deinen Source nicht kenne ist es universal Einsetzbar.
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
procedure ApplicationIdle(sender: TObject; var Done: boolean);
end;
procedure TForm1.ApplicationIdle(sender: TObject; var Done: boolean);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
9. Aug 2018
Hallo Amateurprofi,
Ist ja nicht weiter schlimm, Du hast meinen Vorschlag halt nicht korrekt umgesetzt, als Methode der Klasse. Ja auf das SendMessage() läuft es hinaus, Hauptsache Du rufst es an geeigneter Stelle auf, Form.Create mag ich pers. nicht für so etwas, aber nach einer Listenfüllung um es dynamisch anzupassen.
Ja mit den Mouse Events würde ich halt über das Hint-Event gehen,...
