Skip to content

Instantly share code, notes, and snippets.

View VTwo-Group's full-sized avatar

VTwo Group VTwo-Group

View GitHub Profile
@VTwo-Group
VTwo-Group / aftershow.pas
Created March 30, 2018 14:43 — forked from meason/aftershow.pas
Delphi After Events
const
WM_AFTER_SHOW = WM_USER + 300; // custom message
WM_AFTER_CREATE = WM_USER + 301; // custom message
type
TForm1 = class(TForm)
// After Resize Event
procedure WMExitSizeMove(var Message: TMessage); message WM_EXITSIZEMOVE;
// OnShow event
procedure FormShow(Sender: TObject);
// OnCreate event