...den Schliessen [X] Button einer Form entfernen?

Autor: Gianluca Colombo
Homepage: http://www.digitstudios.com

Kategorie: Dateien

procedure TFMain.FormCreate(Sender: TObject);
var
  
hMenuHandle: Integer;
begin
  
hMenuHandle := GetSystemMenu(Handle, False);
  if (hMenuHandle <> 0) then
    
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base