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;

[SaFu]

Ok dann schreibe ich es auf jeder Form rein geht ja auch aber kann mir einer sagen woher ich diesen Hinweis bekomme, und wie er wieder weg geht.

[Hinweis] Unit2.pas(38): Durch das Überschreiben erhält die virtuelle Methode 'TForm2.WndProc' eine geringere Sichtbarkeit (private) als die Basisklasse 'TForm' (protected)

[Apollonius]

Schreibe die Deklaration im Interface-Teil in den Protected-Teil des Formulars.

[SaFu]

ja danke funktioniert

[jbg]

Zitat:

Zitat von fuknersascha

Kann mann das jetzt irgenwie so schreiben das ich es von der Ersten Form auf die andere übertrage

Erstelle einfach eine eigene Form-Klasse, von der all deine Formulare erben:

Delphi-Quellcode:

unit MyForms;

interface

type
  TMyForm = class(TForm)
  protected
    procedure WndProc(var Msg: TMessage); override;
  end;

implementation

procedure TMyForm.WndProc(var Msg: TMessage);
begin
  ...
end;

end.

Delphi-Quellcode:

unit Form1;

interface

uses
  MyForms;

type
  TForm1 = class({=>}TMyForm{<=})
    ...
  private
  public
  end;

...