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

customform: check for ifaActivate in TAppForm.Activate

Browse Source 
git-svn-id: trunk@25625 -
This commit is contained in:
blikblum 2010-05-25 00:24:13 +00:00
parent 5306a68682
commit c71ccb5390
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/customform/demo/appform.pas
View File

@ -84,7 +84,7 @@ end;
procedure TAppForm.Activate; procedure TAppForm.Activate;
begin begin
if (InitAt=ifaShow) then if (InitAt=ifaActivate) then
InitForm; InitForm;
inherited Activate; inherited Activate;
end; end;