Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
5
Học bài 2 – Nút nhấn và thuộc tính.
Do This Explanation
Nhiệm vụ
Viết chương trính theo chỉ dẫn dưới đây
Mở F:\Delphi\lkn\Project1.Dpr
Alt | File | Open Project
Chọn một button bằng cách click chuột
trái vào biểu tượng như hình bên
Bấm chuột trái lên form1 và rê chuột để
vẽ nút nhấn như hình bên
Thay đầu đề (Caption) của nút bên
phần “Properties”. Thay vì Button1,
bạn hãy thay bằng “&Red” (dấu “&”
đề chỉ thị phím tắt, ở đây là chữ “R”).
Sau đó bấm F11.
Bấm đúp chuột trái vào buttion này.
Khi đó bạn sẽ làm gì, Delphi sẽ viết vài
dòng lệnh Pascal cho bạn
Đây là đoạn mã lệnh Delphi tạo ra.Bạn
không được thay đổi mà chỉ đánh thêm
lệnh thực thi vào đó
procedure TForm1.Button1Click(Sender:
TObject);
begin
end;
Đánh dòng lệnh này.
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
6
Form1.Color := clRed;
cl nghĩa là màu. Nó là CLRED chứ
không phải là C1RED.
procedure TForm1.Button1Click(Sender:
TObject);
begin
Form1.Color := clRed;
end;
Chạy chương trình và nhấn chuột trái
vào nút có nhãn ‘Red’. Form sẽ đổi
thành màu đỏ
F9
Đóng chương trình mà bạn đang chạy
Alt+F4
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
7
Nhiệm vụ: Thêm nhiều nút lệnh theo
dạng clYellow, clGreen như
hình bên
Xem các mã lệnh tạo bằng Delphi.
NHỚ rằng bạn KHÔNG ĐƯỢC thay
đổi or xóa mã lệnh tạo bằng Delphi.
Bạn chỉ có thể xóa, thay đổi mã mà
mình tạo. Sự khởi đầu cho việc tạo mã
lệnh bằng Delphi.
Lưu dự án (project) của bạn.
Alt | File | Save Project
Thoát khi bạn đã kết thúc
Alt | File | Exit
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
8
Học Bài 3 – Nhãn và đầu ra văn bản
Trong bài học này, bạn sẽ viết một chương trình hiển thị văn bản (text) khi nhấn vào nút.
Việc trình bày văn bản là kỹ năng cơ bản cần trong lập trình.
Trong bài học 2, bạn đã viết đoạn mã để trả lời khi nhấn nút. Mã này được gọi là xử lý sự
kiện. Những sự kiện ở đây là những biến cố khi nhấn nút, chuột di chuyển hoặc bấm
chuột. Trong bài học này, bạn sẽ kích hoạt được các sự kiện xử lý nhiều hơn.
Do This Explanation
Nhiệm vụ
Viết chương trình theo
hướng dẫn dưới đây. Khi
bạn nhấn nút, đoạn text
‘Hello World’ sẽ xuất hiện.
Tạo thư mục cho dự án này.
Use MS DOS or Windows
File Manager.
Tạo thư mục này: C:\Delphi\Hello
Tạo dự án Delphi mới
Alt | File | New Application
Lưu dự án này tới
C:\Delphi\Hello
Alt | File | Save All
Tạo một Button và một
Label trên form này.
Click vào label.
Click vào form.
Click vào button.
Click vào form.
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
9
Thay đổi Tiêu đề của
Button1 là ‘&Hello’ giống
như bài học 2.
Thay đổi Caption của
Label1 là để trống.
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
10
Bấm đúp vào nút ‘&Hello’
để phát sinh xử lý sự kiện
Ghi chú Mã lệnh bên dưới gọi là Bộ xử lý sự kiện
EVENT HANDLER
Đây là mã lệnh Delphi tạo.
Bạn Không Thể thay đổi
nhưng có thể them vào mó
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
Thêm vào bộ xử lý sự kiện procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'Hello World!';
end;
Chạy chương trình.
Click vào button. Đoạn text
Hello World sẽ xuất hiện.
F9
Nhiệm vụ
Thêm 2 button và label vào
form. Làm đoạn text xuất
hiện tương ứng khi nhấn nút.
Thực hành nó cho đến khi
bạn thấy tốt hoặc quá chán!
Nhiệm vụ
Hãy thử nghiệm các thuộc
tính khác của đối tượng.
Chẳn hạn thay đổi màu của
form tới clLime.
Bạn hãy click vào mũi tên để
tìm các màu trong danh sách.
Phải chăn là bạn có thể thay
màu, font chữ. Tất cả các
nhiệm vụ này thực hiện chỉ
bằng cái click chuột.
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
11
Học Bài 4 – Ra, vào Văn Bản.
Trong bài học này, bạn sẽ viết chương trình nhận văn bản từ bàn phím và in ra màn hình
khi bạn nhấn nút. Đây là kỹ năng cơ bản cần trong lập trình.
Bạn cũng học làm sao để chuyển dịch những đối tượng từ form.
Bạn sẽ có thể nhầm lẫn khi thực hiện nhiễm vụ này trừ khi bạn nhớ tên cácLabels,
Buttons và Edit Controls của bạn
Do This Explanation
Nhiệm vụ
Viết chương trình theo chỉ
dẫn dưới đây
Đánh text vào Edit Control
(top). Khi bạn bấm nút
Copy, text sẽ hiện ra trong
label ở cửa sổ (hình bên)
Mở dự án đã làm lúc trước.
Alt | File | Open Project
Xóa tất cả Button, Label ở
trong form đó.
Bấm chuột vào các đối tượng và bấm Del. Nếu các
Label có thể khó thấy, bạn có thể bấm Tab để chuyển
qua Label đó.
Xóa các mã xử lý sự kiện cũ.
Đây là một khó khăn, bạn
hãy xóa các lệnh mà bạn
đánh.
Delphi sẽ tự động xóa các mã
này nếu không dùng.
Nếu việc xóa có sai lệch thì
bạn có thể tạo dự án mới cho
chắc!
Bấm F12 để hiện cửa sổ mã lệnh và xóa chúng.
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'Hello World';
end;
Xóa dòng xử lý sự kiện các chữ in đậm
(Chữ in đậm Bold)
Lặp lại b
ước này với tất cả các mã lệnh mã bạn đã tạo
để xử lý sự kiện.
Sử dụng Alt | File | Save Project để Delphi dọn dẹp
các mã lệnh mà nó tạo ra.
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
12
Bây giờ chúng ta bắt đầu xây
dựng chương trình.
Tạo một Edit, 1 Label và 1
Button trên form chương
trình.
Bấm F11 để kiểm tra đối
tượng (Object).
Thuộc tính Text của Edit1 để
trống
Thuộc tính Caption của
Label1 để trống.
Thuộc tính Caption của
Button1 là “Copy”.
Bấp đúp vào nút Copy để tạo
xự kiện tương ứng.
Bạn phải nhập hàng một.
Delphi sẽ tạo ra cái khác.
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Edit1.Text;
end;
Khi bạn bấm vào nút nhấn,
thì Label1.Caption sẽ thể hiện nội dung của
Edit1.Text.
Nhiệm vụ
Viết một chương trình với
nhiều điều khiển hơn.
Chương trình này phải copy
Name và Address khi bạn
bấm nút Copy . Xem thử nó
có giống như ví dụ trên
không?
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
13
Sử dụng Object Inspector để
đổi tên Labels, Buttons và
Edit controls như ở đây. Bạn
phải kết luận với
ButtonCopy
EditAddress
EditSurname
EditTitle
LabelAddress
LabelAddressOutput
LabelSurname
LabelSurnameOutput
LabelTitle
LabelTitleOutput
Tạo sự kiện điều khiển
procedure TForm1.ButtonCopyClick(Sender:
TObject);
begin
LabelTitleOutput.Caption := EditTitle.Text;
LabelSurnameOutput.Caption :=
EditSurname.Text;
LabelAddressOutput.Caption :=
EditAddress.Text;
end;
Reviewed by NGUYEN, Ba Thanh
Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net
14
Học bài 5 - Quyết định sử dụng lệnh IF
Một kỹ năng cơ bản mà người lập trình phải làm. Đây là nhiệm vụ của bài 2 nhưng chúng
ta phải thay đổi màu từ form, nó chọn 1 màu mới thay thế màu cũ.
Xây dựng lại chương trình trong bài học 2 làm cho form màu đỏ. Cho chương trình làm
việc. Thấy rằng bạn có thể làm nó mà không cần sử dụng hướng dẫn này. rồi thay đổi các
sự kiện như sau.Việc này tiêu biểu để sử dụng If Statement (lệ
nh IF).
procedure TForm1.Button1Click(Sender: TObject);
begin
messageBeep(0); { Tiếng bíp báo hiệu khi bạn nhấn nút}
if form1.color = clBtnFace then { Nếu form có màu của nút}
begin {khi đó form thành }
form1.color := clRed {màu đỏ}
end
else if form1.color = clRed then {nếu form không phải màu đỏ}
begin
form1.color := clYellow; {chuyển thành màu vàng}
end
else
begin
form1.color := clBtnFace;
end
end;
Nhiệm vụ Thêm nhiều màu hơn vào sự chọn lựa đã thực hiện ở trên.
Thêm vào button thứ hai vào form để khi qua bước khác qua những màu nối
tiếp với nhau.
Thay đổi lệnh “messageBeep(0)” để chương trình kêu tiếng bíp lên khi form
trở lại màu đỏ.
Không có nhận xét nào:
Đăng nhận xét