Ein Control per Procedure selektieren

[marabu]

Hallo Tom,

Delphi-Quellcode:

if Assigned(Node) and Assigned(Node.Data) then
  TWinControl(Node.Data).SetFocus;

SetFocus ist eine Methode von TWinControl. Wenn du TImage-Komponenten selektieren willst, dann steht dir diese Methode im Ereignis OnChange() der TreeView nicht zur Verfügung. In meiner Testanwendung habe ich aus diesem Grund den Trick mit den untergelegten Panels verwendet. Du hast geschrieben, dass du Code von Creatis für diesen Effekt verwenden kannst. Tue es dann auch und passe den Code im TreeView.OnChange() entsprechend an. Mit meinem auf TEdit oder andere TWinControl-Nachfahren zugeschnittenen Code kannst du auf jeden Fall nicht arbeiten, wenn du TImage verwendest.

Grüße vom marabu