Mehrere Formobjekte mit Focused = True?

[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

[Freiwilderer]

Ich hab im Debugger ja nachgeschaut ...

Ich glaub auch nich wirklich, dass die alle true sind, aber es wird da nunmal so angezeigt und das programm verhält sich auch so als ob ...

[Freiwilderer]

so gehts ....

Delphi-Quellcode:

            if (ButtonMode in [bmSearch]) and (qParcelLocal.Active) and NOT(ActiveControl = meSenderID) and NOT(ActiveControl = meClientRef) and NOT(ActiveControl = ieEplIdFrom)
             and NOT(ActiveControl = ieEplIdTill) and NOT(ActiveControl = dtpOutboundDateFrom) and NOT(ActiveControl = dtpOutboundDateTill) and NOT(ActiveControl = btnRestrictParcels)
             and NOT(ActiveControl = meReceiverCtrCode) and NOT(ActiveControl = meReceiverZipcode) and NOT(ActiveControl = RadioGroup1) then

verstehs zwar immer noch nicht (zumal das mit dem control des express grid views nich funktioniert hat)
danke für den tip

[DeddyH]

Das entspricht aber auch nicht der ursprünglichen Bedingung, sondern fast dem genauen Gegenteil.

[himitsu]

[edit] @DeddyH: stümmt [/edit]

Wo kommt eigentlich diese .Active-Eigenschaft her?
Weder mein D2010 noch D7 kennen diese, bei irgendwas ala Panel, Button oder Memo.

IN [...] bei nur einem Element ... warum nicht = ?

not (... = ...) warum nicht einfach nur (... <> ...) ?

Delphi-Quellcode:

if (ButtonMode = bmSearch) and (qParcelLocal.Active) and (ActiveControl <> meSenderID) and (ActiveControl <> meClientRef) and (ActiveControl <> ieEplIdFrom)
  and (ActiveControl <> ieEplIdTill) and (ActiveControl <> dtpOutboundDateFrom) and (ActiveControl <> dtpOutboundDateTill) and (ActiveControl <> btnRestrictParcels)
  and (ActiveControl <> meReceiverCtrCode) and (ActiveControl <> meReceiverZipcode) and (ActiveControl <> RadioGroup1) then

PS: Wenn qParcelLocal.Active einem ActiveControl = qParcelLocal entspricht, dann wären alle nachfolgenden ActiveControl-Vergleiche überflüssig.