Mehrere Formobjekte mit Focused = True?

[DeddyH]

Es kann immer nur ein Control den Fokus haben. Zeig doch einmal Deinen Code.

[Freiwilderer]

naja, das hab ich auch gedacht

sinngemäß steht da das hier, der komplette code wäre zu komplex, aber mehr macht der an der stelle nicht.

Delphi-Quellcode:

procedure TfParcel.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
var intTemp: int64;
begin
   inherited;
   if ButtonMode in [bmBrowse, bmSearch] then
   begin
      case Key of
         vk_Return:
                        begin
                            if (ButtonMode in [bmSearch]) and (qParcelLocal.Active) and (meSenderID.Focused or meClientRef.Focused or                ieEplIdFrom.Focused or ieEplIdTill.Focused or
            dtpOutboundDateFrom.Focused or dtpOutboundDateTill.Focused or meReceiverCtrCode.Focused or meReceiverZipcode.Focused or RadioGroup1.Focused) then
                                    showmessage('Hallo');
                        end;
        end;
end;

[DeddyH]

Die Bedingung trifft ja zu, wenn eines der angegebenen gefühlten 23.000 Controls den Fokus hat (sofern die anderen Bedingungen zutreffen).

[Freiwilderer]

Ja, ich weiß
Aber die sind alle true^^
auch, wenn ich gar keinen ausgewählt hab ...
Eigentlich sollte das nur das Grid abfragen, aber das ging ja nich, weil das auch immer fokussiert war

[DeddyH]

Und wenn Du statt auf Focused einmal das ActiveControl abfragst? Macht in meinen Augen zwar nicht viel Sinn, einen Versuch ist es aber wert.

[Freiwilderer]

Hmm, ich werd das mal testen, bin leider oder eher zum Glück nich mehr auf der Arbeit
Vielleicht klappt's ja damit, kann mir das auch nich erklären ...
Danke schonmal für den tip

[mkinzler]

Bist du sicher, dass .Focused bei allen True ist? Wenn keine vollständige Boolean-Evaluierung aktiviert ist, dann bricht er bei or beim 1. wahren Term ab, da das ergebnis dann ja insgesamt wahr wird