Registriert seit: 24. Feb 2003
Ort: Graz (A)
705 Beiträge
Delphi 7 Enterprise
|
2. Apr 2003, 18:32
Hallo,
also zusammenfassend sollte es so aussehen:
Delphi-Quellcode:
uses SysUtils, ExtCtrls, StdCtrls, Controls, Classes, Graphics, Dialogs,Forms,
unittype;
{Standard-Units auf die zurückgegriffen wird}
type
TForm1 = class(TForm)
THLPan1 : TImage; // komischer Name für ein Image (Tnnn ... sollte für Typen reserviert sein)
private
{ Private-Deklarationen }
procedure Farbewechseln (Sender: TPanel; Button: TMousebutton);
function Zeitangabe:string;
function THL (Sender: TImage; Button: TMousebutton; Bild: boolean): boolean;
function Sound (Sender: TImage; Button: TMousebutton; Bild: boolean): boolean;
function Schloss (Sender: TImage; Button: TMousebutton; Bild: boolean): boolean;
procedure speichern;
function laden : string;
procedure zerlegen (Zeile:string);
public
{ Public-Deklarationen }
end;
Armin P. Pressler
BEGIN
...real programmers are using C/C++ - smart developers Delphi;
END;
|
|
Zitat
|