Combobox füllen nach "Search"

Alles, was den Programmierer beschäftigt

Moderator: SYNERPY

Antworten
SvenH
Beiträge: 6
Registriert: Do Okt 29, 2015 3:07 pm

Combobox füllen nach "Search"

Beitrag von SvenH »

Hallo, ihr lieben...
ich habe folgendes kleine script und dazu folgendes problem:
aus einer maske soll das maskenkeyfeld (auftragnnummern) ausgelesen werden und
in der combobox werden dann die zugehörigen unteraufträge angezeigt.
das funktioniert auch ganz gut, nur möchte ich, dass das script ausgeführt wird
wenn die suche beendet wird (also, nachdem das erste mal nach aufruf der maske der
grüne haken geklickt wird...)...
Leider finde ich nicht heraus, wo ich mein script einfügen kann (also frmAfterEdit usw.) dass es genau an der gewünschten Stelle ausgeführt wird. Bei After Edit, After Update usw funktioniert es, aber nicht nach der ersten suche


Begin
msktext := '';

cb1 := self.FindComponent('COMBOBOX_1');
maskenkey := self.FindComponent('E_MASKENKEY');
msktext := maskenkey.Text;

if Length(msktext) > 0 then
begin
test := msktext + '%';
mytext1 := 'select maskenkey from tblprojectpart where maskenkey like ' + QuotedStr(test);
cb1.fuellen(mytext1);
cb1.anzeige('','0');
end;
End;

Edit: 09.11.2015
Wenn ich im OnFormShow oder Create
-> bDataOnChangeAlert auf true setze, funktioniert alles wie ich es will xD
Antworten