Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
12. Nov 2002, 12:59
Mal ein kurzes Bsp.
Delphi-Quellcode:
// UNIT uHallo.pas
[color=#ff0022] unit uHallo;[/color]
interface
procedure ShowHallo( Message: AnsiString);
implementation
procedure ShowHallo( Message: AnsiString);
begin
// message dlg
...
end;
end.
// ENDE uHallo.pas
....
....
// Dein Form
unit Form1;
interface
type TForm1 = class(TForm)
procedure Button1OnClick(Sender: TObject);
private
...
public
end;
implementation
[color=#ff0019] uses
uHallo;[/color]
procedure TForm1.Button1OnClick(Sender: TObject);
begin
ShowHallo(' Du hast Button1 gedrückt!');
end;
end.
Für weitere Fragen sind wir natürlich jederzeit da
Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
|