DateTimePicker problem im Closeup Event

[lordcroc]

Hallo,

Ich benutze den Standard DateTimePicker der bei Delphi dabei ist, habe ein Funktion die beim OnClosUp Event aufgerufen wird, die Funktion hat auch einiges zu tun und dauert deshalb etwas. Das Problem ist jetzt das die Dropdown Auswahl während die Funktion läuft angezeigt wird und erst verschwindet nach dem Das Closeup vollständig abgearbeitet wurde und das sieht nicht so schön aus. Wie kann ich es machen Das die Dropdown Liste ausgeblendet wird und dann meine Berechnung in Closeup ausgeführt wird?
Ich hoffe ich habe meine Frage verständlich ausgedrückt, falls nicht bescheid sagen.

schon ma Danke im vorraus

mfg
Lordcroc

[lordcroc]

*push*

[toms]

Hallo!

So muesste es funktionieren:

Delphi-Quellcode:

const
  WM_DTPCloseUp = WM_USER + 111; // benutzerspez. Nachricht

type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    procedure DateTimePicker1CloseUp(Sender: TObject);
  private
    { Private declarations }
    procedure WmAfterShow(var Msg: TMessage); message WM_DTPCloseUp;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WmAfterShow(var Msg: TMessage);
begin
  // Dein langer Code...
end;

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
  PostMessage(Self.Handle, WM_DTPCloseUp, 0, 0);
end;

[lordcroc]

Danke. Funktioniert wunderbar.

mfg
Lordcroc