FormKeyDown ActiveControl.name ist immer leer

[cramer]

Vielen Dank,
genau das war das Problem, so klappts wie erwartet.

Delphi-Quellcode:

procedure TFORM1.FormKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
begin
   if key = vk_F2 then begin
      ShowMessage( ( sender as tcomponent ).name + ' - ' +
                    '(' + form1.ActiveControl.Parent.Name + ')'  + ' - ' +
                    '[' + screen.ActiveControl.Parent.Name + ']');
   end;
end;

Das Ergebnis ist jetzt "FORM1 - (EDIT1) - [EDIT1]"

[himitsu]

Wenn du keine gekapselten Controls hast, klappt das so nicht.
Am Einfachsten den Namen auslesen und wenn leer, dann in ner Schleife zum nächsten Parent gehten usw.