Thema: Delphi Label unklickbar machen

Einzelnen Beitrag anzeigen

Benutzerbild von inherited
inherited

Registriert seit: 19. Dez 2005
Ort: Rosdorf
2.022 Beiträge
 
Turbo Delphi für Win32
 
#7

Re: Label unklickbar machen

  Alt 25. Sep 2008, 16:52
Ja, Delphi Win32 ist das normale Delphi und höchstwahrscheinlich auch das, was man normalerweise auch lernt.

Zur Frage:
Du deklarierst dir irgendwo in der Klasse deiner Form, am Besten im private-Bereich eine boolsche Variable:
Delphi-Quellcode:
TForm1 = class(TForm)
... irgendwas anderes, was da schon steht
private
  bCanClick: Boolean;

public
... usw
Im OnClick vom Button setzt du diese Variable auf true.
Im OnClick des Labels fragst du sie dann ab.
Delphi-Quellcode:
if not bCanClick then
  exit;
Edit:
Zitat von DeddyH:
Delphi-Quellcode:
//Im Create mit false initialisieren
procedure TFormBla.FormCreate(Sender: TObject);
begin
  FCanClick := false;
end;

//Der Button schaltet FCanClick um
procedure TFormBla.ButtonMachAnAusClick(Sender: TObject);
begin
  FCanClick := not FCanClick;
end;
Initialisierung kannst du dir sparen, da die Variable Member einer Klasse ist und somit beim Create mit false initialisiert wird.
Und dein Button-Code würde den Inhalt jeweils invertieren, ich weiß nicht ob das so gefragt war.
Nikolai Wyderka

SWIM SWIM HUNGRY!
Neuer Blog: hier!
  Mit Zitat antworten Zitat