Forum Hafızoğlu

Bordand Delphi 7.0 / www.borland.com.tr adresinden bulabilirsiniz. .NET Framework un yapilanmasi yaklasik olarak 5 yil sureceginden .NET Dunyasina merhaba demeden olmazsa olmaz bir programlama dili.
Burdan bana Delphi ile alakali sorularinizi sorabilir musait zaman dilimlerinde sizleri tatmin edici cevaplar alabilirsiniz.Baglangic olarak bu kucuk programcigin sourcelerini compilerinizde compile edip deneyebilirsiniz.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, jpeg, ComCtrls;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
dosya1: TMenuItem;
a1: TMenuItem;
kaydet1: TMenuItem;
Memo1: TMemo;
Panel1: TPanel;
Panel2: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Panel3: TPanel;
Memo2: TMemo;
Edit3: TEdit;
Button3: TButton;
Button4: TButton;
Edit4: TEdit;
Label3: TLabel;
Image1: TImage;
Timer1: TTimer;
Label4: TLabel;
Timer2: TTimer;
Edit5: TEdit;
CheckBox1: TCheckBox;
Button5: TButton;
Animate1: TAnimate;
Label5: TLabel;
Label6: TLabel;
Timer3: TTimer;
Saat: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure a1Click(Sender: TObject);
procedure kaydet1Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
t:integer=0;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add(edit1.Text+' '+edit2.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure TForm1.a1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.lines.LoadFromFile(OpenDialog1.FileName);
end;
end;

procedure TForm1.kaydet1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
Memo2.Lines.Add(edit3.Text) ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if button3.Caption='Bas' then
begin
button3.Caption:='Basma';
end else begin button3.Caption:='Bas'; end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if edit4.Text='' then begin showmessage('Adınızı Giriniz'); abort; end;
showmessage('Merhaba '+edit4.Text);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label4.Caption:=datetostr(now);
end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin
t:=t+1;
edit5.Text:=inttostr(t);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if CheckBox1.Checked=true then begin
showmessage('Tesekkurler!!');
end else begin showmessage('Sozlesmeyi Kabul Etmek Icin Isaretleyin.'); end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
Saat.Caption:=timetostr(now)
end;

end.