WndProc(var msg : TMessage);override;

[SaFu]

Hi

Hab diesen code in Code-Library gefunden der verhindert das Verschieben des Formblatt

Kann mann das jetzt irgenwie so schreiben das ich es von der Ersten Form auf die andere übertrage oder muss ich den Code auf jedes Formblatt schreiben?

Delphi-Quellcode:

procedure WndProc(var msg : TMessage);override; 
 


Unter Implementation einfügen: 


 procedure TForm2.WndProc(var msg : TMessage); 
begin 
  if msg.Msg = WM_NCLBUTTONDOWN then 
  begin 
    if msg.WParam <> HTCLOSE then 
    begin 
      exit; 
    end; 
  end; 
  inherited WndProc(msg); 
end;