Contoh Program Pengolah Kata pada Delphi

Selasa, 02 Desember 2014

Berikut akan saya bagikan source code dari program pengolah kata,, cekidot..

Nama Komponen	Event	Perintah
New1	OnClick	procedure TForm1.New1Click(Sender: TObject); begin memo1.Clear; end;
Save1	OnClick	procedure TForm1.Save1Click(Sender: TObject); begin if savedialog1.Execute=true then memo1.Lines.SaveToFile(savedialog1.FileName); end;
Exit1	OnClick	procedure TForm1.Exit1Click(Sender: TObject); begin application.Terminate; end;
Copy1	OnClick	procedure TForm1.Copy1Click(Sender: TObject); begin memo1.CopyToClipboard; end;
Cut1	OnClick	procedure TForm1.Cut1Click(Sender: TObject); begin memo1.CutToClipboard; end;
Paste1	OnClick	procedure TForm1.Paste1Click(Sender: TObject); begin memo1.PasteFromClipboard; end;
FontSize1	OnClick	procedure TForm1.FontSize1Click(Sender: TObject); begin if fontdialog1.Execute then memo1.Font.Size:=fontdialog1.Font.Size; end;
FontType1	OnClick	procedure TForm1.FontType1Click(Sender: TObject); begin if fontdialog1.Execute then memo1.Font:=fontdialog1.Font; end;
FontColor1	OnClick	procedure TForm1.FontColor1Click(Sender: TObject); begin if fontdialog1.execute then memo1.Font.Color:=fontdialog1.Font.Color; end;