Announcement

**Bernhard Berger** · 15.06.2000, 11:52

Ereignisse k�nnen genau so wie Eigenschaften gesetzt werden.
Folgendes Beispiel besteht aus einem Formular mit zwei Kn�pfen (TButton). Klickt man auf Button2 wird Button1 ein Ereignis zugewiesen, und es erscheint die Meldung "jo" wenn man daraufhin auf Button1 klickt...
<code><pre>
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('jo!');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.OnClick := Button1Click; // Ereignis fÜr Button1 setzen
end;

end.
</pre></code>
Gru�, 
Bernhar

**Frank B�chner** · 15.06.2000, 12:53

Hallo Bernhard!

Danke f�r deinen n�tzlichen Hinweis.

mfg Fran

Announcement

Componenten und Laufzeit

Componenten und Laufzeit

Comment

Comment