Form vorm schliessen von L nach R und R nach L verkleinern

[Pseudemys Nelsoni]

hi,

ich möchte das vor dem schliessen meines forms das das fenster von links nach rechts und von rechts nach links, immer 1 pixel kleiner wird (per timer), bis es ganz verschwunden ist (danach wird closed)...aber wenn ich das so mache:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Left := form1.Left+1;
  Form1.Width := Form1.Width-1;
end;

wird nur von links nach rechts verkleinert....wenn ich es so mache:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Width := Form1.Width-1;
  Form1.Position := poScreenCenter;
end;

dann klappt das mit der grösse zwar, aber flackert wie sau

hat jemand ne idee ?

gruss silent

[erniepb]

Hallöle wie wärs wenn du ganz einfach die rste Variante benutzt aber die Breite um 2 subtrahierst ..

Also:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Left := form1.Left+1;
  Form1.Width := Form1.Width-2;
end;

Mfg

[Pseudemys Nelsoni]

hoi,

das prob ist, das sich dann die komponenten die auf der form liegen mitbewegen nach rechts, es sollte von den seiten immer kleiner werden und die komps die drauf sind sollten sich nicht bewegen

[phlux]

Dann musst du das neuzeichnen der Form verhindern!

[Pseudemys Nelsoni]

kannst du mir noch sagen wie? *g

[phlux]

Hi!
Es sollte so gehen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    procedure WMEraseBkgnd(var Msg: TMessage); message WM_ERASEBKGND;
  public
  
  end;
  
procedure TForm1.WMEraseBkgnd;
begin
  Msg.Result := 0;
end;

[Pseudemys Nelsoni]

hoi jo sieht ganz gut aus, bloss das es jetzt garnichtmehr gezeichnet wird das heisst wenn ichn anderes fenster über mein prog schiebe hats das andere prog mit drauf designt lol

[phlux]

hmm das musst du gucken wann dein Fenster aktiviert ist und nur dann Msg.Result := 0 setzen wenn dein Fenster über allen anderen ist, wenn du nämlich nur noch dann dein Fenster nicht neu zeichnest wenn es über allen anderen ist kann sich ja keins mehr drüber schieben .

[Pseudemys Nelsoni]

danke