Toolbar - button Hints

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Hallo Leute
Ich hab eine Prozedure um die Hints aus bzw. einzublenden
nur funktioniert das nicht mit der Toolbar und den darauf erstellten
Toolbuttons hat da jemand einen Tip für mich.
Ich wollte nicht unbedingt jeden Toolbutton einzeln abschalten.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Hinweis;//Hinweise anzeigen
begin
  if MM_HinweiseAnzeigen.Checked then Form1.ShowHint := True
  else Form1.ShowHint := False;
end;

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Lannes · Verfasst: Di 19.02.08 20:03

Hallo,

versuch es mal damit :wink:

:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Hinweis;//Hinweise anzeigen  
begin  
  if MM_HinweiseAnzeigen.Checked then Application.ShowHint := True  
  else Application.ShowHint := False;  
end;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Danke ! das kann so einfach sein man muss nur drauf kommen. :wink:

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Yogu · Verfasst: Di 19.02.08 20:25

Warum micht einfach so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.MM_HinweiseAnzeigenClick(Sender: TObject);
begin
  ToolBar1.ShowHint := not ToolBar1.ShowHint;
  MW_HinweiseAnzeigen.Checked := ToolBar1.ShowHint;
end;

Du musst diesen Code natürlich in der OnClick-Prozedur des Menüitems eintragen.

Wenn du aber lieber bei deiner alten Prozedur bleiben willst (ich würds dir nicht empfehlen):

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Hinweis;//Hinweise anzeigen
begin
  if MM_HinweiseAnzeigen.Checked then ToolBar1.ShowHint := True
  else ToolBar1.ShowHint := False;
end;

Grüße,
Yogu

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme