Projemde birden fazla TWebBrowser kullanıyorum, TWebBrowserda MouseDown ve MouseMove gibi özellikleri olmadığından TWebBrowserı
panel içine koydum. İstediğimde bu TWebBrowserları sürükle bırak ile formda yer değişikliği yaptırabilmek için mouse TWebBrowser üstüne gelince panelin MouseDown ve MouseMove özelliklerini nasıl devreye soka bilirim...
Kod: Tümünü seç
procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
????
end;
procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
???
end;