paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 23:03:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

published TPageControl.OnPageChanged

Browse Source 
git-svn-id: trunk@9818 -
This commit is contained in:
mattias 2006-09-05 19:28:21 +00:00
parent 1742704d47
commit 99c9e9fcce
2 changed files with 2 additions and 1 deletions

1
lcl/comctrls.pp
View File

@ -286,6 +286,7 @@ type
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnPageChanged;
property OnResize;
//property OnStartDock;
//property OnStartDrag;

2
lcl/include/customform.inc
View File

@ -1442,7 +1442,7 @@ end;
------------------------------------------------------------------------------}
procedure TCustomForm.Hide;
begin
If (fsModal in FormState) and (ModalResult=0) then
if (fsModal in FormState) and (ModalResult=0) then
ModalResult := mrCancel;
Visible := False;
end;