Delphi prozedur aufruf - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

prozedur aufruf

Ein Thema von LoL · begonnen am 4. Okt 2003 · letzter Beitrag vom 4. Okt 2003

Vorheriger Beitrag

Nächster Beitrag

Christian Seehase

(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.123 Beiträge

Delphi 11 Alexandria

#11

Re: prozedur aufruf

4. Okt 2003, 15:00

Moin Christoph,

schau Dir das mal an:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure irgendwas;

type TMainPanel = class(TPanel)

  class procedure Createwas(Sender : TObject);

end;

implementation

class procedure TMainPanel.Createwas(Sender : TObject);

begin

  ShowMessage('HALLO');

end;

procedure irgendwas;

var meinbutton : TButton;

begin

  meinbutton := TButton.create(form1);

  meinbutton.parent := form1;

  meinbutton.onclick := TMainPanel.Createwas;

end;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

  irgendwas;

end;

Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist