Form dockt on Screen

[Sir Rufo]

Zitat von barese:

@shmia .. du hast recht gehabt!!

Zitat:

Wichtig ist auch, dass du nicht über die globale Variable Form1 auf die Daten zugreifst.

sehr wichtiger satz den du mir da geschickt hast [Danke].!!

..sobal ich compiliere gibt es ein crash, aber ich hab es mit ein String gelöst. Beim start prüf ich einfach einen String in einer EditBox oder einer anderen Componenten Box und dann ging es
wunderbar..

danke noch mal.

Verstehe ich zwar nicht wozu das gut sein soll einen rein intern benötigten Wert (boolean sollte auch reichen) in einem Edit-Feld auf dem Formular zu speichern.
Was hier gemeint wurde, ist eine private Variable für das Formular und das geht so:

Delphi-Quellcode:

type
  TForm1 = class( TForm)
    ...
  private
    FMagneticSnap : Boolean;
  public
    // Falls man von aussen das auch steuern möchte dann als Property veröffentlichen
    property MagneticSnap : Boolean read FMagneticSnap write FMagneticSnap;
  end;

procedure TForm1.Button1OnClick( Sender : TObject );
begin
  // property benutzen
  MagneticSnap := not MagneticSnap;
  // oder wenn die property nicht benutzt gewünscht ist, dann direkt auf die Variable zugreifen
  FMagneticSnap := not FMagneticSnap;
  // aber eins von beiden reicht :o)
end;

procedure TForm1.OnCreate( Sender : TObject );
  begin
    FMagneticSnap := True; // oder auch False, je nachdem, was halt default gewünscht ist Schnappi oder nicht
  end;

procedure TForm1.OnMove(var aMsg:TWMMove);
begin
  if FMagneticSnap then
    begin
      // hier kommt jetzt Schnappi rein
    end; 
end;