Onclick -Ereignis trotz Enabled-Eigenschaft False??ß

[PinkFloydFan]

Moin und vorweihnachtliche Grüsse!

Habe folgendes Problem und komme wieder mal nicht weiter..

Es existiert eine GroupBox, in der einige Labels, EditBoxen und Buttons sind..

Das ganze ist normalerweise sichtbar, aber nicht veränderbar (Erst nach eingabe eines Passworts
wird Groupbox1.Enabled auf True gesetzt)

Dann gibts ja das OnClick.Ereignis...

Ist Groupbox1.Enabled auf False, wird kein OnClick ausgelöst..


Möchte aber, wenn jemand auf diese GroupBox klickt einen kurzen Warntext (Label) anzeigen...


Wie kriege ich also den OnClick auf GroupBox1 hin, obwohl GroupBox1.Enabled False ist??

[Muetze1]

Lass die GroupBox enabled und setze alle Elemente in der GroupBox auf enabled := false.

[PinkFloydFan]

jaaaa...

das ist ne Lösung, aber weder elegant noch sinnvoll..

bläht nur den Quelltext auf und gibt dem FehlerTeufel(Ihhh) genug Gelegenheit sich einzuschleichen


Es muss doch möglich sein, as Onklick-Ereignis dieser GroupBox zu überschreiben..


P.S. Ich hab auch keine Ahnung.....

[RavenIV]

Leg doch ein anderes Control (Label, Panel, andere Groupbox) über die erste Groupbox drüber, solange diese disabled ist.
Bei enable schickst Du das zweite Control in den Hintergrund.

[Luckie]

Guck im OnMouseUp der Form, ob innerhalb der Gropubox geklickt wurde.

[PinkFloydFan]

@Luckie:

onMouseUp funktioniert leider auch erst wenn...Enabled

@All:

Die Lösung von RavenIV ist machbar und funkioniert auch..

aber das muss noch eleganter gehen....

[Luckie]

Zitat von PinkFloydFan:

@Luckie:

onMouseUp funktioniert leider auch erst wenn...Enabled

Und das Formular bekommt keine MouseUp Nachricht?

[PinkFloydFan]

ahh...

hab da was überlesen...

OnMouseUp der Form

teste ich mal..


melde mich wieder

[PinkFloydFan]

Schei...ade

scheint nicht so zu funzen...

Delphi-Quellcode:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If Sender=GroupBox1 then
  begin
    Label36.Visible:=True;
    Label36.BringToFront;
    Timer2.Enabled:=True;
  end;
end;

nur zur Erklärung:
Timer2 sollte bei OnTimer Label36.Visible wieder auf False setzen..


aber: Keinerlei Reaktion

[bitsetter]

Hi,

versuche es mal im onClick Ereignis des Formulars:

Delphi-Quellcode:

procedure TForm1.FormClick(Sender: TObject);
begin
  if ControlAtPos(ScreenToClient(mouse.CursorPos), true, true)= Groupbox1 then
    showmessage('Warnung');
end;

Das funktioniert anscheinend nur, wenn sich die Groupbox direkt auf dem Formular befindet.