Thema: Delphi 2 Sender in KeyPress

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.157 Beiträge
 
Delphi 12 Athens
 
#2

Re: 2 Sender in KeyPress

  Alt 24. Nov 2003, 10:13
Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

also, bei dieser Ereignisprozedur ist immer Sender = ListBox...

Denn dieses Ereignis wird ja von der ListBox aufgerufen.

Außerdem besitzt kein Edit den Eingabefokus, da ja die ListBox diesen hat, daher ist es nicht mehr möglich heraus zu finden, welches Edit den hatte.


Du kannst aber vorm Erstellen der ListBox auslesen welches Edit aktiv ist oder von welchem Edit die ListBox aufgerufen wird, dir dann irgendwie speichern, welches das ist und diesen Wert dann in deiner Prozedur verwenden.

z.B.
Delphi-Quellcode:
Var AktEdit: TEdit;

Procedure ListBoxAnzeigen(Sender ... {Sender is TEdit}
  Begin
    AktEdit := Sender;
    listbox_eingabehilfe.Visible := True;
  End;

Procedure TTaetigkeiten.listbox_eingabehilfeKeyDown(Sender ...
  Begin
    AktEdit.Text := listbox_eingabehilfe.Items.Strings[listbox_eingabehilfe.itemIndex];
    listbox_eingabehilfe.Visible := False;
  End;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat