Label unklickbar machen

[DeddyH]

OK.

Delphi-Quellcode:

...
type TFormBla = class(TForm)
  ...
  private
    FCanClick: Boolean; //Definition eines Boolschen Feldes
  ...
end;

...

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

//Das Label wertet das Feld aus
procedure TFormBla.LabelWuppdiClick(Sender: TObject);
begin
  if FCanClick then
    ShowMessage('Ich wurde geklickt');
end;

Probier's mal aus.