Porting from Windows to Linux
lazarus / 1-Linux

----------------------------------------------------------------------
ezlage · 2012-09-14 17:00

I have this procedure that prevents form closing with ALT+F4.
How to do the same for Linux?

Code: [Select]uses Windows;

procedure TFrmAcesso.FormKeyDown(const Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_F4) and (Shift = [ssAlt])
    then Key:=0;
end;

----------------------------------------------------------------------
Dibo · 2012-09-14 17:06

Add unit LCLType to uses

----------------------------------------------------------------------
JuhaManninen · 2012-09-14 17:16

Quote from: Dibo on September 14, 2012, 07:06:02 pmAdd unit LCLType to
uses

... and remove Windows. Then your code will be cross-platform.
LCLIntf is a useful unit, too, when converting Delphi apps. I
recommend adding it.

Juha