Einzelnen Beitrag anzeigen

TStringlist

Registriert seit: 1. Dez 2003
360 Beiträge
 
Turbo Delphi für Win32
 
#12

Re: Ereignis-Name zur Laufzeit zuweisen

  Alt 6. Mär 2007, 08:58
Genau, das mit dem "c" (in welches das Control im LabelEnter-Eventhandler eingetragen wird) ist doch fast noch einfacher. Verlässt man das Label mit der Maus wieder, dann braucht man "c" im LabelLeave-Eventhandler nur noch auf nil zu setzen und kann es so gleichzeitig auch noch als Flag nutzen, ob es sich überhaupt auch um eine solche Situation handelt:

if (Key = 13) and (c <> nil) then TLabel(c).OnClick(c); Ansonsten darf es ja auf der Form auch wirklich keine Vewechslungsmöglichkeiten geben, z.B. irgendein anderes Panel auf das man davor zufälligerweise geklickt hat o.ä....

Und ist der Focus tatsächlich noch Pflicht dann käme halt +/- dieses "and" noch dazu

and (TObject(ActiveControl) = TObject(c.parent))
MfG (& Thx ggf.)
  Mit Zitat antworten Zitat