Woher soll ich das alles wissen, wenn ich erst in diesem Thema erfahre, dass es noch freie Proceduren gibt
Ok, ist ein anderes Thema.
Klassendeklaration? Muss das hier sein denke ich, oder?
Delphi-Quellcode:
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
GroupBox3: TGroupBox;
Label6: TLabel;
ed_ProxyServer: TEdit;
cbDirectConnection: TCheckBox;
Label7: TLabel;
Label8: TLabel;
ComboBox1: TComboBox;
Label9: TLabel;
XPManifest1: TXPManifest;
Panel1: TPanel;
Image2: TImage;
PopupMenu1: TPopupMenu;
About1: TMenuItem;
ProxyServer1: TMenuItem;
Website1: TMenuItem;
N1: TMenuItem;
Image3: TImage;
VolumeOff: TImage;
VolumeOn: TImage;
Image1: TImage;
Image4: TImage;
TrackBar1: TTrackBar;
PaintBox1: TPaintBox;
Timer1: TTimer;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Label1: TLabel;
Label2: TLabel;
Timer2: TTimer;
Image8: TImage;
Timer3: TTimer;
Image9: TImage;
Image10: TImage;
Image11: TImage;
ListBox1: TListBox;
ListBox2: TListBox;
Image12: TImage;
Image13: TImage;
Image14: TImage;
ListBox3: TListBox;
ListBox4: TListBox;
Image15: TImage;
GroupBox4: TGroupBox;
Label10: TLabel;
Label11: TLabel;
Timer4: TTimer;
BitBtn4: TBitBtn;
ShowDate1: TMenuItem;
ShowTime1: TMenuItem;
N2: TMenuItem;
Image16: TImage;
Image17: TImage;
Image18: TImage;
Image19: TImage;
Timer5: TTimer;
Image20: TImage;
SaveDialog1: TSaveDialog;
GroupBox5: TGroupBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure cbDirectConnectionClick(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure ProxyServer1Click(Sender: TObject);
procedure Website1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure VolumeOnClick(Sender: TObject);
procedure VolumeOffClick(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Image7Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Timer2Timer(Sender: TObject);
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Image8Click(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Image9Click(Sender: TObject);
procedure Image10Click(Sender: TObject);
procedure Image11Click(Sender: TObject);
procedure Image12Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure Image13Click(Sender: TObject);
procedure Image14Click(Sender: TObject);
procedure Image15Click(Sender: TObject);
procedure Timer4Timer(Sender: TObject);
procedure ShowDate1Click(Sender: TObject);
procedure ShowTime1Click(Sender: TObject);
procedure Image16Click(Sender: TObject);
procedure Image17Click(Sender: TObject);
procedure Image18Click(Sender: TObject);
procedure Image19Click(Sender: TObject);
procedure Timer5Timer(Sender: TObject);
procedure Image19MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image20Click(Sender: TObject);
private
{ Private declarations }
procedure StopRec;
public
{ Public declarations }
procedure WndProc(var Msg: TMessage); override;
end;