// TOpendialog nach einer bestimmten Zeit schließen.


// Getestet mit D4 unter XP

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Timer1.interval := 0; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Timer1.interval := 30000; // 30 Sekunden 
  if OpenDialog1.execute then begin 
   // mach was 
  end; 
end; 
 
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  Timer1.interval := 0; 
  SendMessage(GetParent(OpenDialog1.Handle), WM_CLOSE, 0, 0); 
end;



 

Zugriffe seit 6.9.2001 auf Delphi-Ecke