Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

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

  Alt 14. Mai 2003, 11:28
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
Mario
  Mit Zitat antworten Zitat