unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
lemler1: TMenuItem;
A1: TMenuItem;
Kaydet1: TMenuItem;
N1: TMenuItem;
Kapat1: TMenuItem;
Grn1: TMenuItem;
Renkler1: TMenuItem;
Yel1: TMenuItem;
Mavi1: TMenuItem;
Bicim1: TMenuItem;
Bos1: TMenuItem;
Genisletilebilir1: TMenuItem;
Genisletilemez1: TMenuItem;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
ComboBox1: TComboBox;
PopupMenu1: TPopupMenu;
renk1: TMenuItem;
Sari1: TMenuItem;
Mav1: TMenuItem;
Sil1: TMenuItem;
HepsiniSil1: TMenuItem;
OgrenciSayisi1: TMenuItem;
Label1: TLabel;
ListBox1: TListBox;
Label3: TLabel;
Label4: TLabel;
ListBox2: TListBox;
Label5: TLabel;
ListBox3: TListBox;
Button1: TButton;
procedure Mavi1Click(Sender: TObject);
procedure Yel1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Sari1Click(Sender: TObject);
procedure Mav1Click(Sender: TObject);
procedure Kaydet1Click(Sender: TObject);
procedure A1Click(Sender: TObject);
procedure Kapat1Click(Sender: TObject);
procedure Sil1Click(Sender: TObject);
procedure Bos1Click(Sender: TObject);
procedure Genisletilebilir1Click(Sender: TObject);
procedure Genisletilemez1Click(Sender: TObject);
procedure OgrenciSayisi1Click(Sender: TObject);
procedure HepsiniSil1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Mavi1Click(Sender: TObject);
begin
Form1.Color:=clBlue;
Mavi1.Checked:=true;
end;
procedure TForm1.Yel1Click(Sender: TObject);
begin
Form1.Color:=clGreen;
Yel1.Checked:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit2.Text);
ListBox2.Items.Add(Edit1.Text);
ListBox3.Items.Add(Combobox1.Text);
end;
procedure TForm1.Sari1Click(Sender: TObject);
begin
ListBox1.Color:=clYellow;
Sari1.Checked:=true;
ListBox2.Color:=clYellow;
Sari1.Checked:=true;
ListBox3.Color:=clYellow;
Sari1.Checked:=true;
end;
procedure TForm1.Mav1Click(Sender: TObject);
begin
ListBox1.Color:=clTeal;
Mav1.Checked:=true;
ListBox2.Color:=clTeal;
Mav1.Checked:=true;
ListBox3.Color:=clTeal;
Mav1.Checked:=true;
end;
procedure TForm1.Kaydet1Click(Sender: TObject);
begin
ListBox1.Items.SaveToFile('no.txt');
ListBox2.Items.SaveToFile('adsoyad.txt');
ListBox3.Items.SaveToFile('sınıf.txt');
end;
procedure TForm1.A1Click(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('no.txt');
ListBox2.Items.LoadFromFile('adsoyad.txt');
ListBox3.Items.LoadFromFile('sınıf.txt');
end;
procedure TForm1.Kapat1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Sil1Click(Sender: TObject);
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
ListBox2.Items.Delete(ListBox2.ItemIndex);
ListBox3.Items.Delete(ListBox1.ItemIndex);
end;
procedure TForm1.Bos1Click(Sender: TObject);
begin
Form1.BorderStyle:=Bsnone;
Bos1.Checked:=True;
end;
procedure TForm1.Genisletilebilir1Click(Sender: TObject);
begin
Form1.BorderStyle:=BsSizeAble;
Genisletilebilir1.Checked:=True;
end;
procedure TForm1.Genisletilemez1Click(Sender: TObject);
begin
Form1.BorderStyle:=BsToolWindow;
Genisletilemez1.Checked:=True;
end;
procedure TForm1.OgrenciSayisi1Click(Sender: TObject);
begin
ShowMessage(IntToStr(ListBox1.Items.Count));
end;
procedure TForm1.HepsiniSil1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ListBox2.Items.Clear;
ListBox3.Items.Clear;
end;
end.

eline emeğine sağlık

bu program calişmaz arkdasım