ToolBar

Tags:    delphi

Kan nogen hjælpe mig med dette???

Hvis man på en form sætter komponentet TOOLBAR og herefter på denne opretter en række BUTTONS f.eks. 8 stk.

Hvordan kan man finde ud af hvilken BUTTON der aktiveret v.h.a. mus f.eks. Man kan naturligvis gå alle BUTTONS igemmen ved at aktivere dem:

procedure TForm.ToolButton1Click(Sender: TObject);
begin
......
......
end;

Findes der en nemmere måde, f.eks. med:

begin
case .... of

end;
end;

Hvormed man finder ud af hvilken TOOLBUTTON der er aktiveret?


M.v.h.
Lars Christensen




1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
Kan nogen hjælpe mig med dette???

Hvis man på en form sætter komponentet TOOLBAR og herefter på denne opretter en række BUTTONS f.eks. 8 stk.

Hvordan kan man finde ud af hvilken BUTTON der aktiveret v.h.a. mus f.eks. Man kan naturligvis gå alle BUTTONS igemmen ved at aktivere dem:

procedure TForm.ToolButton1Click(Sender: TObject);
begin
......
......
end;

Findes der en nemmere måde, f.eks. med:

begin
case .... of

end;
end;

Hvormed man finder ud af hvilken TOOLBUTTON der er aktiveret?


M.v.h.
Lars Christensen


Du kan sætte alle onClick hændelser fra alle Knapperne til den samme procedure, og i denne kan du f.eks. skrive:

Procedure Tform1.tbClick (Sender: Tobject);
begin
if (sender as TToolbutton).name="Toolbutton1" then
begin
...
end;

if (sender as TToolbutton).name="Toolbutton2" then
begin
...
end;
.........
end;

Håber det hjælper dig, venlig hilsen
Stefan Svensson
[Redigeret d. 07/05-02 08:44:04 af Stefan Svensson]



t