EnterKey activate ?

[toms]

Zitat von Mini-Programmierer:

Wenn ich eine Label auf Tabsheet, wo auch Webbrowser drauf liegt, lege, dann wird die Enter-Taste in Webbrowser nicht aktiviert. Wenn ich die Label lösche, dann funktioniert's wieder
Das Problem ist nur mit Label. Wenn ich einen Edit drauf hinzufüge dann ist kein Problem
Warum ?!

Das Problem liegt hier:

Delphi-Quellcode:

function TForm1.GetCurrentWB: TWebbrowser; 
begin 
  Result := nil; 
  with PageControl1 do 
    if ActivePage.Controls[0] is TWebbrowser then 
      Result := (TWebbrowser(ActivePage.Controls[0])); 
end;

Konkret hier:

TWebbrowser(ActivePage.Controls[0])); Das Umschreiben / Verbessern der Funktion überlasse ich mal dem Fragesteller.