Mehrere Befehle auf einen Komponenten setzen

[alcaeus]

Hi malo!

Geflamt wird hier nie, egal wie dumm die Fragen sind (einer hat mal gefragt wie er erkennt ob eine Zahl negativ ist )

Zu deinem Problem:
Du könntest mehrere OnClick-Routinen schreiben (also die erste mit Doppelklick auf den Button einfügen, und die nächsten kopieren und umbenennen (Deklaration und Implementation). Anschließend kannst du die Routinen dem OnClick-Ereignis zuweisen.
Und damit es besser verständlich wird:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button1bClick(Sender: TObject);
    procedure Button1cClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  //mach was
  Button1.OnClick := Button1bClick;
end;

procedure TForm1.Button1bClick(Sender: TObject);
begin
  //mach was
  Button1.OnClick := Button1cClick;
end;

procedure TForm1.Button1cClick(Sender: TObject);
begin
  //mach was
  Button1.OnClick := Button1Click;
end;

end.

Hier gibt es nur einen Button (Button1) auf dem Form, aber nach jedem Klick macht er was anderes. Ich hoffe das war verständlich erklärt.

Greetz
alcaeus

[add]Oder du könntest meine eigene Methode verfeinern aber es kommt auf den Verwendungszweck an. Das mit Label1.Tag wird bei mehreren Unterscheidungen nämlich sehr unübersichtlich.[/add]