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]