Mehrere Formobjekte mit Focused = True?

[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;