TUpdown erhält keinen Fokus???

[QuickAndDirty]

Ich habe eine Komponente mit einem TupDown Button für das weiter schalten von Monat bzw Jahr.
Wenn ich in in der Anwendung nun ein TEdit Fokussiere und dann auf das TupDown Klicke kommt zwar das
Click Ereigniss aber der Fokuss bleibt beim TEdit. Wie kann ich das beheben?

[jim_raynor]

Tja. TUpDown dürfte kein Focus kennen. Bedeutet, dass du eine neue Komponente basteln musst oder dir was anderes suchen.

[Flocke]

Zitat von QuickAndDirty:

... aber der Fokuss bleibt beim TEdit.

Wozu soll das UpDown denn den Focus bekommen? Soweit ich weiß, subclassed das das zugeordnete Control und fängt die Pfeiltasten ab, so dass der Focus ruhig beim TEdit bleiben kann.

[QuickAndDirty]

Ich speichere Im ExitEvent von TEdit
Leider wird durch das ändern des Datums(mit TUpdown)
der Kontext durcheinander geworfen.
Ich hab schon versucht im Onclick SetFocus+ProcessMessages zu machen.
Aber das bringts auch nicht korrektrüber da das Speichern in mehrere Stufen
über mehrere Objekte geschieht.

[Flocke]

Dir fehlt also das OnExit wenn man auf das UpDown klickt und du möchtest schon auf die Änderung reagieren, wenn man das UpDown bedient?

Kannst du nicht auf UpDown.OnChangingEx reagieren?

Delphi-Quellcode:

procedure TForm1.UpDown1ChangingEx(Sender: TObject; var AllowChange: Boolean;
  NewValue: Smallint; Direction: TUpDownDirection);
begin
  if ActiveControl = Edit1 then
    Edit1Exit(Sender);
end;

[QuickAndDirty]

Leider nicht weil ich das Exit des Tedit benötige und nicht das des TUpdown.
Wenn TupDown Geklickt wird baut sich ein ganz neuer monat auf. wenn ich während der zeit etwas Editiere
ist das TEdit Da und hat den Fokuss, es soll aber vor dem Monats Wechsel (Tupdown.Onclick).
Der eingetragene Wert in den Aktuellen Monat gespeichert werden und dann das tedit geschlossen werden.

Hab jetzt TUpDown Rausgeschmissen. 2 BitBTn tun es einfach besser


Danke an alle.