pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Fixed #246: FMX doesn't have a OnMove event

Browse Source
This commit is contained in:
Andreas Hausladen
2019-11-13 21:35:11 +01:00
parent f96a7bc4f9
commit cbca087674
3 changed files with 34 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
demos/Delphi_FMX/FMXToolBoxBrowser/uChildForm.pas
View File

@ -79,6 +79,7 @@ type
procedure NotifyMoveOrResizeStarted;
procedure DoDestroyParent;
procedure SendCloseMsg;
procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override;
property Closing : boolean read FClosing;
property Homepage : string read FHomepage write FHomepage;
@ -227,6 +228,16 @@ begin
end;
end;
procedure TChildForm.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
var
PositionChanged: Boolean;
begin
PositionChanged := (ALeft <> Left) or (ATop <> Top);
inherited SetBounds(ALeft, ATop, AWidth, AHeight);
if PositionChanged then
NotifyMoveOrResizeStarted;
end;
procedure TChildForm.NotifyMoveOrResizeStarted;
begin
// This is needed to display some HTML elements correctly