... InitialDir . Title Open A File SaveDialog1 DefaultExt TXT FileName *.TXT Filter Text File *.TXT |*.TXT Click vào [...] để làm. Bạn i n vào hộp (box) và click OK. InitialDir Title ... - Chương trình Delphi đon giản nhất Do This Explanation Nhiệm vụ Viết chương trình theo những bước bên dư i. Kh i động Delphi Tạo một dự án (project) Alt | File | New Application Bạn cần ... bản 9 B i 5...
... Reviewed by NGUYEN, Ba Thanh Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net Những ví dụ trong lập trình Delphi Quyển 2
Những ví dụ về lập trình bằng Delphi; Biên dịch b i ... Ba Thanh Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net Delphi Programming Bạn cần ph i đọc quyển I trước khi đọc những ví dụ trong quyển này. Quyển sách này giàn...
... InitialDir . Title Open A File SaveDialog1 DefaultExt TXT FileName *.TXT Filter Text File *.TXT |*.TXT Click vào [...] để làm. Bạn i n vào hộp (box) và click OK. InitialDir Title ... - Chương trình Delphi đon giản nhất Do This Explanation Nhiệm vụ Viết chương trình theo những bước bên dư i. Kh i động Delphi Tạo một dự án (project) Alt | File | New Application Bạn cần ... bản 9 B i 5...
... Reviewed by NGUYEN, Ba Thanh Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net Những ví dụ trong lập trình Delphi Quyển 2
Những ví dụ về lập trình bằng Delphi; Biên dịch b i ... Ba Thanh Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net Delphi Programming Bạn cần ph i đọc quyển I trước khi đọc những ví dụ trong quyển này. Quyển sách này giàn...
... TFormbai1.SpeedButtonZoomOutClick(Sender: TObject);
begin
Imagehienthi.ClientHeight:=Imagehienthi.Height+20;
//Chiều cao
khung hình tăng thêm 20 pixel
Imagehienthi.ClientWidth:=Imagehienthi.Width+20; ... //Chiều rộng
khung hình tăng lên 20 pixel
end;
procedure TFormbai1.SpeedButtonZoomInClick(Sender: TObject);
begin
Imagehienthi.ClientHeight:=Imagehienthi.Height-20;
Imagehienthi.Client...
...
paintBox1.Canvas.LineTo(X, Y - Size);
paintBox1.Canvas.MoveTo(X - Size div 2, Y - Size div 2);
paintBox1.Canvas.LineTo(X + Size div 2, Y - Size div 2);
if Size > 2 then
begin ...
begin
image2.Left := image2.Left + 2;
if image2.Left > 169 then { Đóng chương trình trình khi ảnh }
begin { t i phía ph i màn hình. }
Những ví dụ về lập trình bằng Delphi; Biên...
... by Diễn đàn Tin học – http://www.diendantinhoc.net
4
Học B i 1 - Chương trình Delphi đon giản nhất
Do This Explanation
Nhiệm vụ
Viết chương trình theo
những bước bên dư i.
Kh i động ... Text File
*.TXT
|*.TXT
Click vào [ ] để làm. Bạn i n vào hộp
(box) và click OK.
InitialDir
Title Save File
With A
New Name
Form1
Caption Untitled
6 Click vào icon MainM...
...
InitialDir .
Title Open A File
SaveDialog1
DefaultEx
t
TXT
FileName *.TXT
Filter Text File
*.TXT
|*.TXT
Click vào [ ] để làm. Bạn i n vào hộp
(box) và click OK.
InitialDir ... the third day (Wed) into dayOfWeek }
{ This is a good comment }
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
2
L i gi i thiệu
Delphi cho...