Toolbar Button + RichEdit

[Störtebeker]

Ich verwende eine RichEdit und möchte dem BOLD Button folgendes zuweisen:

Delphi-Quellcode:

procedure TForm2.ToolButton18Click(Sender: TObject);
begin
if ToolButton18.Down then
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style + [fsBold]
else
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style - [fsBold]
end;

zusätzlich gebe ich dem OnChangeSelection des RichEdit folgende Procedure:

Delphi-Quellcode:

procedure TForm2.RichEdit1SelectionChange(Sender: TObject);
begin
if fsBold in Richedit1.SelAttributes.Style then
  begin
    ToolButton18.Down:=true;
  end else
   begin
    ToolButton18.Down:=false;
  end;
  end;

Aber es wird weder der BOLD button auf Down gesetzt noch wird irgendein effekt erzeugt, der mit BOLD zu tun hat. Das Programm startet ohne Fehler. Bis auf die Sache, dass das BOLD nicht funzt. PLEASE HELP!!

[dataspider]

Hi,

ich empfehle dir, über eine ActionList eine neue Standardaction (Format - TRichEditBold) anzulegen.
Dann funktioniert es automatisch...

Frank

[Störtebeker]

habe ne ActionList, ne neue Aktion hinzugefügt.

Hab da jetzt OnExecute, OnHint, OnUpdate.

kannst du mir vielleicht ein kleines Beispiel geben. Bin nämlich noch nicht so vertraut mit dem Anlegen von Funktionen, die nicht im OI der jeweiligen Komponente vorgegeben sind.

[dataspider]

...
also, in der ActionList rechte Maustaste - neue Standardaktion - Format TRichEdiBold...

Und dann im OI dem Toolbutton die Action zuweisen - Fertig!

Frank

[Störtebeker]

danke, funzt super. Ich hatte das einfügen von standardaktionen irgendwie nicht gesehen. Thx.

Noch die Frage, der Toolbarbutton wird automatisch auf Disabled gesetzt, wenn ich das RichEdit feld anklicke. im OI des tollbarbutton ist die eigenschaft enabled auf true. Kann man das irgendwie machen, dass der button von vorn herein enabled ist, ist das von der action so vorgegeben?

[dataspider]

Zitat von Störtebeker:

Noch die Frage, der Toolbarbutton wird automatisch auf Disabled gesetzt, wenn ich das RichEdit feld anklicke. im OI des tollbarbutton ist die eigenschaft enabled auf true. Kann man das irgendwie machen, dass der button von vorn herein enabled ist, ist das von der action so vorgegeben?

Die Actions prüfen, ob die Funktionalität für das aktive Control verfügbar ist.
Damit müsste das Verhalten eigentlich umgekehrt sein.
Der Button sollte Enabled werden, wenn du das RichEdit ancklickst.

Was für eine Delphi Version benutzt du denn?

Frank

[Störtebeker]

Ich benutze D6 Enter.

Und das , "wird automatisch auf disabled gesetzt, wenn ich das RichEdit feld anklicke": Da hatte ich mich verschrieben, sry.

Wollte eigentlich schreiben, dass der Button automatisch auf diabled ist, bis ich das RichEdit feld anklicke und ob man dass halt nicht schon beim Programmstart auf enabled setzen kann.