Gennemtving OnEnter

koden virker fint, forudsat at der en button både med fokus og med en assignet onEnter event. Prøv evt. at lægge mærke til hover fokus er når formen vises igen efter at have været gemt ;-)

ha\' det godt
hatecaps

Det er underligt at det ikke virker ved mig. Selv om der er en button med en OnEnter event med fokus, så eksekveres event\'en ikke. Jeg kan heller ikke finde fejl i koden.

Hvad er hover fokus?

hmm, jeg har kigget lidt mere på det, og fundet af at problemet er at det aktive komponent først får fokus EFTER onShow. Hvis du bruger en timer til udføre tjekket virker det fint. Alt efter hvor mange komponenter de har på formen bør 100-150 millisekunder virke fint. Og sæt timeren til enabled = false til at begynd med.

altså

procedure TForm1.FormShow(Sender: TObject);
begin
  timer2.enabled := true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var I: Word;
begin
  timer2.enabled := false;
  for I := 1 to ComponentCount do
  begin
    if Components[I - 1] is TButton then
    begin
      with Components[I - 1] as TButton do
      begin
        if focused then
        begin
          if Assigned(OnEnter) then
          begin
            OnEnter(Sender);
          end;
        end;
      end;
    end;
  end;
end;

Okay, det er DET, der er problemet... Tak for hjælpen!

Det var en fonøjelse :-)
specielt da jeg lærte noget selv samtidigt ;-)

ha\' det godt
hatecaps