Assigned(ActiveControl) ?

[thomas2009]

Hallo

was müsste man tun, damit ein Cotroll als aktives Objekt wird ?
Ich habe einige Objekte wie Panels, Labels, Images getestet, indem ich drauf klicke
die werden nie aktiv Controll !

Nur einige Controlls wie Edits, Buttons werden aktiv, wenn ich drauf klicke

Ich habe mit einem Timer getestet :

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Assigned(ActiveControl) then
    Edit1.Text := 'ActiveControl = ' + ActiveControl.Name
  else
    Edit1.Text  := 'ActiveControl = nil';
end;

[toms]

Panels, Labels, Images können ja auch nicht fokussiert werden.

[nahpets]

Hallo,

schau mal bei der gewünschten Komponente, ob sie ein SetFocus hat, dann geht's genau damit.