Q&A
- 시간경과가 되면 버튼이 눌리는것 같은 이벤트를 줄수 없나여
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
Label2: TLabel;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
i,j,k,l:integer;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := TimeToStr(Now);
k:= k - 1;
label2.Caption := inttostr(k);
if k = i then
begin
Timer1.Enabled := False;
ShowMessage('시간초과 버튼1을 누르세여..'); <-- 요부분에서 버튼1이 눌려지는 이벤트를 줄수없나여..
end; showmessage가 안나타나고 바로 버튼1이 눌린것 같은 이벤트를 전달해서
end; 버튼1이 클릭된것처럼 말이져.....
부디 님들의 도움을 바랍니다....
procedure TForm1.FormCreate(Sender: TObject);
begin
i := 0;
k := 10;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
k := 10;
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
Label2: TLabel;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
i,j,k,l:integer;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := TimeToStr(Now);
k:= k - 1;
label2.Caption := inttostr(k);
if k = i then
begin
Timer1.Enabled := False;
ShowMessage('시간초과 버튼1을 누르세여..'); <-- 요부분에서 버튼1이 눌려지는 이벤트를 줄수없나여..
end; showmessage가 안나타나고 바로 버튼1이 눌린것 같은 이벤트를 전달해서
end; 버튼1이 클릭된것처럼 말이져.....
부디 님들의 도움을 바랍니다....
procedure TForm1.FormCreate(Sender: TObject);
begin
i := 0;
k := 10;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
k := 10;
end;
end.
2
COMMENTS
-
-
다시한번 답변에 감사드립니다..
그런데요.... 제가 한델과 델마당등에도 질문을 했는대 답변에 약간씩 다름점이 있거든여
button1click(sender);
라는 답변과
button1click(self)라는 것과
button1click(button)이라는게 있습니다....
어찌하오리까....
지나가다가.. wrote:
> 버튼 클릭 효과를 말씀하시는 것은
>
> procedure TForm1.Button1Click(Sender: TObject);
>
> 이 프로시져가 실행되기를 원하신다는 말씀이신가요?
>
> 아니면 버튼 클릭 효과는 어떤 것을 말씀하시는지... ㅡ.ㅡ
>
> 만일 저 프로시져가 실행되기를 원하신다면...
>
> Button1Click(Self); <--- ShowMessage 구문을 이렇게 변경하시면 되지 않을까요?..
>
> 지나가다가...
>
> 무니스 wrote:
> > unit Unit1;
> >
> > interface
> >
> > uses
> > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> > ExtCtrls, StdCtrls;
> >
> > type
> > TForm1 = class(TForm)
> > Label1: TLabel;
> > Timer1: TTimer;
> > Label2: TLabel;
> > Button1: TButton;
> > procedure Timer1Timer(Sender: TObject);
> > procedure FormCreate(Sender: TObject);
> > procedure Button1Click(Sender: TObject);
> > private
> > { Private declarations }
> > public
> > i,j,k,l:integer;
> > { Public declarations }
> > end;
> >
> > var
> > Form1: TForm1;
> >
> > implementation
> >
> > {$R *.DFM}
> >
> > procedure TForm1.Timer1Timer(Sender: TObject);
> > begin
> >
> > label1.Caption := TimeToStr(Now);
> > k:= k - 1;
> > label2.Caption := inttostr(k);
> > if k = i then
> > begin
> > Timer1.Enabled := False;
> > ShowMessage('시간초과 버튼1을 누르세여..'); <-- 요부분에서 버튼1이 눌려지는 이벤트를 줄수없나여..
> > end; showmessage가 안나타나고 바로 버튼1이 눌린것 같은 이벤트를 전달해서
> > end; 버튼1이 클릭된것처럼 말이져.....
> > 부디 님들의 도움을 바랍니다....
> >
> > procedure TForm1.FormCreate(Sender: TObject);
> > begin
> > i := 0;
> > k := 10;
> > end;
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > begin
> > Timer1.Enabled := true;
> > k := 10;
> > end;
> >
> > end.
> >
(NOTICE) You must be logged in to comment on this post.
-
- 버섯
- 2001.11.16 19:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 그파니
- •
- 2001.11.16 19:35
- 1 COMMENTS
- /
- 0 LIKES
-
mafioso•2001.11.16 21:41델파이 데모에 보시면(DemosDBTestData를 참조해보세요.) textpkg.dpk 를 설치하시면 텍스트파일 dataset...
-
-
- 초보
- 2001.11.16 19:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 안미향
- 2001.11.16 19:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 한빛초보
- 2001.11.16 19:01
- 0 COMMENTS
- /
- 0 LIKES
-
- staryong
- •
- 2001.11.16 18:47
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.16 19:24staryong wrote: > 정말 초보의 질문입니다..너그럽게 봐주시길 바랍니다.^^ > 탐색기에서 Item을 선택할...
-
- 이슬이
- •
- 2001.11.16 18:28
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.16 19:12이슬이 wrote: > 안녕하세요 > 맨날 질문만 올리는 이슬이입니다. > 제가 리스트뷰에 > 1 , 경로 >...
-
- 이지인
- •
- 2001.11.16 18:19
- 1 COMMENTS
- /
- 0 LIKES
-
유레카•2001.11.16 19:04이지인 wrote: > Image의 Canvas에 선을 잔뜩 그렸거든요. > 그 선들을 일괄로 지워버리는 방법 없나요??...
-
- 무지랭이
- 2001.11.16 17:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 진요한
- 2001.11.16 16:12
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 박지원
- •
- 2001.11.16 10:00
- 3 COMMENTS
- /
- 0 LIKES
-
델파이 탐 크르즈•2001.11.16 17:45박지원 wrote: > LIST라는걸 쓰면 된다는데.. > Help를 봐도 잘 이해가 안되네요.. > > 'AAA.EXE'라는...
-
박지원•2001.11.16 18:49잘안되네요.. 어떤 내용인지는 알겠는데 직접 코딩할라니까.... 참고할만한 소스 좀 부탁드리겠습니다. ...
-
델파이 탐 크르즈•2001.11.16 21:38박지원 wrote: > 잘안되네요.. > 어떤 내용인지는 알겠는데 직접 코딩할라니까.... > 참고할만한 소스 ...
-
- 훈
- •
- 2001.11.16 08:58
- 2 COMMENTS
- /
- 0 LIKES
-
문현•2001.11.16 17:30훈 wrote: > 다음과 같이 TForm1이 선언되었을 때, > > TForm1 = class(TForm) > Button1: TBut...
-
훈•2001.11.16 18:00문현 wrote: > 훈 wrote: > > 다음과 같이 TForm1이 선언되었을 때, > > > > TForm1 = class(TForm)...
-
- 무니스
- •
- 2001.11.16 08:17
- 2 COMMENTS
- /
- 0 LIKES
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; Label2: TLabel; Button1: TButton; procedu...-
지나가다가..•2001.11.16 09:56버튼 클릭 효과를 말씀하시는 것은 procedure TForm1.Button1Click(Sender: TObject); 이 프로시져...
-
무니스•2001.11.17 10:50다시한번 답변에 감사드립니다.. 그런데요.... 제가 한델과 델마당등에도 질문을 했는대 답변에 약간씩 다...
-
- 델초보
- 2001.11.16 16:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2001.11.16 07:26
- 1 COMMENTS
- /
- 0 LIKES
-
Bulduki•2001.11.16 22:17이렇케 해보세요.. GroupBox 또는 Panel을 하나 만드시고(예저는 GroupBox임다.)... procedure TForm1....
-
- 영프리오
- 2001.11.16 07:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 이를어째
- 2001.11.16 06:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이언
- •
- 2001.11.16 06:00
- 2 COMMENTS
- /
- 0 LIKES
-
나두초보~~•2001.11.16 07:40안녕하세여..님.. 스트링 그리드에 체크박스를 넣는다는데..? 어떤 용도인지요..? 만약 DB그리드 방...
-
델파이언•2001.11.16 18:28동적 생성은 잘 안되는 것 같더군요...버그도 있고... 음... AdvStringGrid 및 StringGrid에 CheckBox넣...
procedure TForm1.Button1Click(Sender: TObject);
이 프로시져가 실행되기를 원하신다는 말씀이신가요?
아니면 버튼 클릭 효과는 어떤 것을 말씀하시는지... ㅡ.ㅡ
만일 저 프로시져가 실행되기를 원하신다면...
Button1Click(Self); <--- ShowMessage 구문을 이렇게 변경하시면 되지 않을까요?..
지나가다가...
무니스 wrote:
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> ExtCtrls, StdCtrls;
>
> type
> TForm1 = class(TForm)
> Label1: TLabel;
> Timer1: TTimer;
> Label2: TLabel;
> Button1: TButton;
> procedure Timer1Timer(Sender: TObject);
> procedure FormCreate(Sender: TObject);
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> i,j,k,l:integer;
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
>
> label1.Caption := TimeToStr(Now);
> k:= k - 1;
> label2.Caption := inttostr(k);
> if k = i then
> begin
> Timer1.Enabled := False;
> ShowMessage('시간초과 버튼1을 누르세여..'); <-- 요부분에서 버튼1이 눌려지는 이벤트를 줄수없나여..
> end; showmessage가 안나타나고 바로 버튼1이 눌린것 같은 이벤트를 전달해서
> end; 버튼1이 클릭된것처럼 말이져.....
> 부디 님들의 도움을 바랍니다....
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> i := 0;
> k := 10;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Timer1.Enabled := true;
> k := 10;
> end;
>
> end.
>