Zwei miteinander arbeitende Prozeduren

[daredd]

Hallo mal wieder ,
noch eine Frage.
Wenn ich zwei OnClick-Prozeduren habe wie kann ich es so machen das ich einen button1 klicke die OnClick-Prozedur des Button2 auch mitläuft, bzw. beim Clicken von button1 die Prozedure von button ein läuft??

[daredd]

Also das klappt bei mir schon mal nicht:

Delphi-Quellcode:

procedure TFormUserTune.Label1Click(Sender: TObject);
begin
procedure sbColorGridClick(Sender: TObject);
end;

watt mache ich falsch??

[mkinzler]

Du kannst ja in der Event-Methode die andere aufrufen. Aber Achtung Ping-Pong-Gefahr.

[daredd]

Zitat von mkinzler:

Du kannst ja in der Event-Methode die andere aufrufen. Aber Achtung Ping-Pong-Gefahr.

und wo finde ich diese Event-Methode???

bin voll den Newbee!!

[mkinzler]

Ich nehme an die beiden Buttons heißen Label1(?) und sbColor:

Delphi-Quellcode:

procedure TFormUserTune.Label1Click(Sender: TObject);
begin
    If sender.Name = 'Label1' then  sbColorGridClick(Sender);
end;

procedure sbColorGridClick(Sender: TObject);
begin
    If sender.Name = 'sbColor' then Label1Click(Sender);
end;

Wenn der Event direkt durch Klicken des Buttons ausgelöst wird, wird dann die Prozedur des anderen Button mitausgelöst. Dieser löst dann aber nicht mehr den ersten aus.

[daredd]

Zitat von mkinzler:

Ich nehme an die beiden Buttons heißen Label1(?) und sbColor:

Delphi-Quellcode:

procedure TFormUserTune.Label1Click(Sender: TObject);
begin
    If sender.Name = 'Label1' then  sbColorGridClick(Sender);
end;

procedure sbColorGridClick(Sender: TObject);
begin
    If sender.Name = 'sbColor' then Label1Click(Sender);
end;

Wenn der Event direkt durch Klicken des Buttons ausgelöst wird, wird dann die Prozedur des anderen Button mitausgelöst. Dieser löst dann aber nicht mehr den ersten aus.

gut, und was gebe ich für sender.Name ein, also was muss unter Name stehen der schreibt mir undeclared identifier: 'Name'

[mkinzler]

Sorry Eigenschaft .Name ist ja ne Eigenschaft von TComponent, es muß also
If (sender as TComponent).Name = ... heißen.

[daredd]

cool danke hat geklappt