|
|
- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #1505 [Delphi] (จาก IP: 58.9.78.247)
ขอ source code เกี่ยวกับการจับเวลาคับ
คือตอนนี้ทำโปรเจคส่งอาจารย์ เป็นโปรเจคเล็กๆครับ ติดตรงที่ไม่ทราบ source code เกี่ยวกับการจับเวลา แบบ กดปุ่ม botton แล้ว เริ่ม/หยุด จับเวลา ถ้ายังไงขอความกรุณาจากผู้รู้ช่วยหน่อยนะครับ ขอบคุณล่วงหน้าครับ
|
จากคุณ
:
worakit / worakit_43@hotmail.com [2007-10-23 07:38:22]
|
|
ความคิดเห็น #26164 (จาก IP: 58.8.190.8)
เอาไปประยุกต์เอาเอง
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := 'Started!'; Timer1.Enabled := True; end;
procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; Label1.Caption := 'Finished!'; end;
end. |
จากคุณ
:
sup98 [2007-10-23 10:50:28]
|
|
ความคิดเห็น #26165 (จาก IP: 58.9.78.247)
ขอบคุณคับ
|
จากคุณ
:
worakit [2007-10-23 11:11:02]
|
|
|
- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
|
|