Nabend
ich hab mal wieder ein Problem,
auf meiner Form befindet sich ein TWebBrowser und andere nackige Sachen die aber nicht so wichtig sind.
so nun zu meinen Problem ich hab das Mausrad auf der Form aktiv läuft auch beim ersten Start aber sobald ich meinen TWebBrowser
starte geht die Maus nur noch im TWebBrowser und nicht mehr auf der Form.
kann mir bitte einer helfen, Danke Ralle15
Delphi-Quellcode:
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
ComboBox1: TComboBox;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
......
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
VertScrollBar.Position := VertScrollBar.Position - 10;
end;
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
VertScrollBar.Position := VertScrollBar.Position + 10;
end;
end.