Hot List |
Current Time |
Contact InformationElectronic mail address |
|
procedure TFON_LinesForm.FormShow(Sender: TObject);
begin
(* make this form system-top-most *)
SetWindowLong(handle, GWL_EXSTYLE, GetWindowLong(handle, GWL_EXSTYLE)
or WS_EX_TOPMOST);
SetWindowPos(handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;