DateTimePicker ReadOnly?

[TUX_der_Pinguin]

Man kann die Einstellung DateMode von dmComboBox auf dmUpDown ändern dann hat man nur zwei kleine
Spinbuttons. Ob man dann aber wirklich alle Möglichkeiten händisch sperren kann die zu Eingaben im
dem Feld führen können bin ich mir nicht so sicher. Wäre relativ aufwändig.

Ich hatte einen Tipp gefunden wie man ein "leeres" DateTimePicker erzeugen kann (http://www.swissdelphicenter.ch/de/showcode.php?id=1227)

Dort wird im OnClick Ereignis direkt die Kalenderauswahl aufgerufen ohne das man mit der Tastatur in
das Eingabefeld gelangen kann (z.b. Tab). Meine Idee war es dort anzusetzen, ich habe nur keine Ahnnung ob das Möglich ist und wie.

Delphi-Quellcode:

procedure TForm1.DateTimePicker1Click(Sender: TObject);
begin
   if FDTMDateEmpty then
   begin
     DateTimePicker1.Perform(WM_KEYDOWN, VK_F4, 0);
     DateTimePicker1.Perform(WM_KEYUP, VK_F4, 0);
   end;
end;

Die Frage ist ob ich in dem OnClick Ereignis irgendwie selbiges unterdrücken kann um somit den Aufruf zu verhindern.

[UliBru]

Setze doch die Komponente auf ein Panel. Wenn das Panel disabled wird, ist die Komponente read-only. Die Farbe bleibt erhalten.

[TUX_der_Pinguin]

Zitat von UliBru:

Setze doch die Komponente auf ein Panel. Wenn das Panel disabled wird, ist die Komponente read-only. Die Farbe bleibt erhalten.

Das wäre eine Möglichkeit, zwar ziemlicher Pfusch aber wenn es scheinbar nicht anders geht.

Auf jedenfalls vielen Dank für die Tipps und Ideen.

[ConnorMcLeod]

Zwei witzige Lösungen von experts-exchange:
-) change DragMode property of DateTimePicker to dmAutomatic;
-)

Delphi-Quellcode:

procedure TForm1.DateTimePicker1DropDown(Sender: TObject);
begin
  PostMessage(GetFocus(), WM_SYSKEYDOWN, VK_MENU, 0);
  PostMessage(GetFocus(), WM_SYSKEYDOWN, VK_UP, 0);
  PostMessage(GetFocus(), WM_SYSKEYUP, VK_UP, 0);
  PostMessage(GetFocus(), WM_KEYUP, VK_MENU, 0);
end;

procedure TForm1.DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Key := 0;
end;