Button disablen mit nonVCL

[Sanchez]

Hallo erstmal,

Ich weiss zwar, wie ich mit der API einen Button disable:

Delphi-Quellcode:

EnableWindow(btStart.Handle,false);

Allerdings verändert sich das Erscheinungsbild des Buttons dabei nicht. Er sieht gleich aus, als wäre er enabled lässt sich aber nicht klicken.

Meine Frage also:

Habe ich eine Möglichkeit ohne VCL den Button so zu disablen, dass man es auch sieht? (so wie btStart.enabled := false)

danke im voraus

Grüße
Daniel

[MathiasSimmack]

Guck dir mal Luckies Listbox-Demo aus seinen Tutorials an. Da passiert genau das. Es gibt einen Button "Hinzufügen", der erst aktiviert wird, wenn du in die Eingabezeile etwas eintippst:

Delphi-Quellcode:

EN_CHANGE:
  if loword(wParam) = IDC_EDITADDSTR then begin
    ZeroMemory  (@buffer,sizeof(buffer));
    EnableWindow(hwndButtonAddStr,
      GetWindowText(hwndEditAddStr,buffer,256) > 0);
  end;

Unter dem Button gibt es einen zweiten, "Löschen", der erst nach Auswahl eines Listbox-Eintrags aktiviert ist.

Deine Idee ist also schon richtig. :)

[Sanchez]

Wenn ich meinen Button auf diese Art disable, sieht man nicht das er nicht aktiv ist.
Ich möchte, dass er dann auch "eingegraut" ist.
Gibt es eine Möglichkeit, den Buttontext bzw. das Glyph grau zu zeichnen?

[r_kerber]

Vielleicht hilft Dir DisableButton. Habe ich in der Win32-SDK-Hilfe gefunden.

[MathiasSimmack]

Zitat:

Zitat von Sanchez0815

Wenn ich meinen Button auf diese Art disable, sieht man nicht das er nicht aktiv ist.
Ich möchte, dass er dann auch "eingegraut" ist.

Ist er normalerweise. Die Demo aus den Tutorials funktioniert auch mit einem Button, der eine Bitmap bzw. ein Icon anzeigt auf die gleiche Weise. Benutzt du irgendeinen außergewöhnlichen Button? Wenn dein Programm nicht aus geheimem Code besteht, dann gib doch mal ein paar Stückchen davon bekannt. (Insbesondere deine Create-Routinen.)

Wie gesagt, bei mir (D5Pro) arbeitet "EnableWindow" richtig und stellt die Buttons auch deaktiviert dar.

[Sanchez]

Das sind alles TBitBtn Objekte, die ich ganz normal "reingezogen" habe und im Objektinspektor eingestellt habe.

Also habe ich keine eigenen Creates für den Button.

Ich will sie nur deshalb nonVCL disablen weil ich aus teilweise aus einem anderen Thread darauf zugreife, den ich wie folgt initialisiert habe:

Delphi-Quellcode:

  ThreadHandle:=BeginThread(nil, 0, @RunScript,nil, 0, ThreadID);

Während der Thread läuft sollen einige Buttons deaktiviert werden, damit man keinen zweiten Thread auslösen kann.

Delphi-Quellcode:

  EnableWindow(cbBefehle.Handle,false);
  EnableWindow(btStartup.Handle,false);
  ShowWindow(btCancelScript.Handle,SW_SHOW);
  EnableWindow(btStart.Handle,false);
  EnableWindow(btOpenScript.Handle,false);

  running           := true;
  for i:=0 to mBefehle.Items.Count - 1 do begin
    Delay(sleeptime);
    if leavethread then begin
      leavethread := false;
      sleeptime   := 0;
      FrmMain.CanClose  := true;
      EndThread(0);
    end;
    sleeptime := 0;
    if mBefehle.Items.Count > i then begin
      mBefehle.ItemIndex := i;
      mBefehle.Update;
      ExecuteCommand(mBefehle.Items[i]);
    end;
  end;
  mBefehle.Items.Clear;
  running           := false;
  EnableWindow(cbBefehle.Handle,true);
  EnableWindow(btStartup.Handle,true);
  ShowWindow(btCancelScript.Handle,SW_HIDE);
  EnableWindow(btStart.Handle,true);
  EnableWindow(btOpenScript.Handle,true);

Diese Funktion durchläuft den Inhalt einer Listbox und gibt den Inhalt der aktuellen an die Funktion Executecommand weiter. Executecommand interpretiert den Befehl und reagiert dementsprechend.
Es ist eine Art Skriptinterpreter. Aufgrund des Timer (Delay) und der Tatsache, dass es in meinem Projekt mehrere solcher Skriptinterpreter geben muss das Skript in einem Thread ablaufen.

Wobei das alles schon funktioniert, nur wollen die Buttons nicht wie sie sollen.

Funktioniert das mit BitButtons nicht richtig?

[Sanchez]

Naja nicht die beste Lösung, aber so gehts auch :

Delphi-Quellcode:

EnableWindow(btStartup.Handle,false);
btStartup.Font.Color := clGrayText;

...

EnableWindow(btStartup.Handle,true);
btStartup.Font.Color := clBtnText;

Ist zwar nicht schön, aber es scheint Thread-Sicher zu sein.

Kann ich Glyphs auch grayen, bzw. irgendwie auf den 2ten Glyph schalten?

[MathiasSimmack]

Wir reden hier von VCL-Buttons? :? Mal ehrlich, wenn du schreibst, dass das hier funktioniert

Delphi-Quellcode:

btStartup.Font.Color := clGrayText;

dann kannst du IMO auch gleich

Delphi-Quellcode:

btStartup.Enabled := false;

benutzen. Oder nicht?

[Sanchez]

Das war natürlich auch mein erster Gedanke. Allerdings denke ich das dieser Aufruf nicht unbedingt Threadsicher ist. Bin mir nicht sicher aber lieferte gelegentlich Exceptions (nicht immer). Seit ich es mit EnableWindow mache bekomme ich keine mehr.