Q&A
- Sender를 이용한 이벤트 핸들러 연결에 대해서 질문이요..
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Sender as TButton).Caption = 'Button1' then
ShowMessage(' Button1 Click');
if (Sender as TButton).Caption = 'Button2' then
ShowMessage(' Button21 Click');
if (Sender as TButton).Caption = 'Button3' then
ShowMessage(' Button31 Click');
if (Sender as TButton).Caption = 'Button4' then
ShowMessage(' Button41 Click');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//ShowMessage(' Button2 Click');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
//ShowMessage(' Button3 Click');
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
//ShowMessage(' Button4 Click');
end;
end.
위는 간단하게 제가 테스트용으로 한것입니다.
각 버튼을 누르면은 해당버튼의 번호가 눌렸다는 메세지창을 뜨게 한 것입니다.
한데 전 이것을요 버튼1에서 다 제어하고 싶은 것입니다.
그래서 버튼1의 이벤트 핸들러안에다가 나머지 버튼들을 연결시켜서요,
if문으로 해당 버튼의 sender가 왔을때 버튼의 이름을 확인하고 해당 메세지창을
띄우려는 것입니다. 근데 위와같이 하면은 버튼1만 작동하고 나머지는 아무소식이
없더군요..... 고수님들의 도움 기다릴께요.....
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Sender as TButton).Caption = 'Button1' then
ShowMessage(' Button1 Click');
if (Sender as TButton).Caption = 'Button2' then
ShowMessage(' Button21 Click');
if (Sender as TButton).Caption = 'Button3' then
ShowMessage(' Button31 Click');
if (Sender as TButton).Caption = 'Button4' then
ShowMessage(' Button41 Click');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//ShowMessage(' Button2 Click');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
//ShowMessage(' Button3 Click');
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
//ShowMessage(' Button4 Click');
end;
end.
위는 간단하게 제가 테스트용으로 한것입니다.
각 버튼을 누르면은 해당버튼의 번호가 눌렸다는 메세지창을 뜨게 한 것입니다.
한데 전 이것을요 버튼1에서 다 제어하고 싶은 것입니다.
그래서 버튼1의 이벤트 핸들러안에다가 나머지 버튼들을 연결시켜서요,
if문으로 해당 버튼의 sender가 왔을때 버튼의 이름을 확인하고 해당 메세지창을
띄우려는 것입니다. 근데 위와같이 하면은 버튼1만 작동하고 나머지는 아무소식이
없더군요..... 고수님들의 도움 기다릴께요.....
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
-
감초•2001.04.14 21:0610000개의 레코드라면 쿼리를 쓰는게 아주아주 많이 빠릅니다. 동일한 테이블에서 분류만 다른경우 각각의... -
칼~•2001.04.17 19:551만개정도라면 별로 아무것이나 써도 별로 상관없을 듯... 글구..따로따로 sum할수 있음 ex) sele...
-
-
- nicesky
- 2001.04.14 20:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 김동수
- •
- 2001.04.14 20:00
- 4 COMMENTS
- /
- 0 LIKES
-
감초•2001.04.14 20:47QRShape을 사용하세요. 김동수 wrote: > 레포트 출력폼에 대각선을 그으려고 하는데....그런 기능을 하...
-
김동수•2001.04.14 21:20QRShape의 어디에 그런 기능이 있는지 모르겠습니다. 감초 wrote: > QRShape을 사용하세요. > > 김...
-
감초•2001.04.14 22:42정확히 어떻게 선을 그으려 하는가요? 저는 QShape을 사용해서 모든 선을 표현했거든요. 단 0, 90, 180, ...
-
하기•2001.04.15 00:05제가 알기로는 사선긋는 방법은 없네요.. 꼭필요하시다면 QrImage에 사선을 그려 넣으신다음 그것을 Load ...
-
- 김동수
- •
- 2001.04.14 19:59
- 1 COMMENTS
- /
- 0 LIKES
-
허접~•2001.04.17 02:35DEL3.0이후부터 제공되는 MIDAS를 사용하세요 DCOM, TCP Socket등으로 접속이 가능하답니다. 자세한 사항...
-
- 김훈
- •
- 2001.04.14 19:56
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.04.14 20:10흠~~ 혹시 라디오그룹에 아이템을 넣어주시지 않은 것은 아닌지.... 디자인시 라디오그룹의 Items속성을...
-
- 초보여염
- •
- 2001.04.14 19:45
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.04.14 20:26이벤트는 그 형이 규격화되어 있습니다. 그러므로 새로운 객체를 만들고, 그 타이머이벤트형을 다시 만들어...
-
이제관•2001.05.09 00:17고마워여 저도 이방법을 찾고 있었는데 도움이 많이 됐습니다. kylix wrote: > 이벤트는 그 형이 규격화...
-
- 레간자
- •
- 2001.04.14 19:44
- 1 COMMENTS
- /
- 0 LIKES
-
sky•2001.04.14 21:28SELECT 학과, DECODE(년도,'1998',개수,0) AS "1998", DECODE(년도,'1999',개수,0) AS "1999", DECODE(년도...
-
- 미지수
- 2001.04.14 19:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- 2001.04.14 19:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 최은규
- •
- 2001.04.14 19:26
- 1 COMMENTS
- /
- 0 LIKES
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure B...-
kylix•2001.04.14 20:33나머지 세개의 이벤트(Button2Click, Button3Click, Button4Click)는 필요 없으니까 지우시고요... Button2...
-
- 쿠사잡췌
- 2001.04.14 18:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.04.14 18:23
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.04.14 20:41일반적으로 구조체형의 경우 델파이는 빠른 속도를 위해 4바이트씩 재배치합니다. 그러므로 구조체형의 크...
-
델초보•2001.04.15 00:03.
-
- 초보는힘들어
- 2001.04.14 17:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- 2001.04.14 17:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.04.14 08:20
- 1 COMMENTS
- /
- 0 LIKES
-
kukkek•2001.04.14 14:46델초보 wrote: > 도와주세요 > 델파이 초보자 입니다. > 다름이 아니라. 일자조회를 할경우 시작일(Stri...
-
- 이성운
- •
- 2001.04.14 07:39
- 1 COMMENTS
- /
- 0 LIKES
-
optech•2001.04.14 08:04폼스타일이 childform로 컴파일 한 상태면 되지 않을 겁니다.. 한번 컴파일 되면 show로만 띄우던지 showm...
-
- 설창원
- 2001.04.14 06:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 설창원
- •
- 2001.04.14 06:04
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.04.14 06:10혹시 꺼구로 아닙니까? 아님 Call by reference하고 착각하셨는지?? 꿈꾸는 바보 류.. 설창원 wro...
-
- 박태준
- 2001.04.14 05:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보자
- •
- 2001.04.14 04:46
- 3 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.04.14 08:36yo` 흠냐...테이블의 구조마다 레코드수가 틀리지만 보통 사이즈가 120 메가정도 되면 Table is Full ...
-
류종택•2001.04.14 06:20혹시나해서 답변을 올립니다. 파라독스의 저장한계는 개인적으로 생각해서 레코드의 크기하고도 문제가 ...
-
major•2001.04.14 04:55델초보자 wrote: > 지금 파라독스를 이용해서 프로그램을 사용하고 있는데 > 데이타를 저장시 며칠전 부...
참고로 님의 코드의 경우 아래와 같이 간단하게 하실수 있습니다. 그리고 님의 경우처럼
Sender객체의 형을 확실히 알 수 있는 경우는 As연산자보다는 아래처럼 직접 형변환해서
사용하시는 것이 좋습니다.
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(' ' + TButton(Sender).Caption + ' Click');
end;
최은규 wrote:
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> Button2: TButton;
> Button3: TButton;
> Button4: TButton;
> procedure Button1Click(Sender: TObject);
> procedure Button2Click(Sender: TObject);
> procedure Button3Click(Sender: TObject);
> procedure Button4Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> if (Sender as TButton).Caption = 'Button1' then
> ShowMessage(' Button1 Click');
> if (Sender as TButton).Caption = 'Button2' then
> ShowMessage(' Button21 Click');
> if (Sender as TButton).Caption = 'Button3' then
> ShowMessage(' Button31 Click');
> if (Sender as TButton).Caption = 'Button4' then
> ShowMessage(' Button41 Click');
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> //ShowMessage(' Button2 Click');
>
> end;
>
> procedure TForm1.Button3Click(Sender: TObject);
> begin
> //ShowMessage(' Button3 Click');
>
> end;
>
> procedure TForm1.Button4Click(Sender: TObject);
> begin
> //ShowMessage(' Button4 Click');
>
> end;
>
> end.
>
> 위는 간단하게 제가 테스트용으로 한것입니다.
> 각 버튼을 누르면은 해당버튼의 번호가 눌렸다는 메세지창을 뜨게 한 것입니다.
>
> 한데 전 이것을요 버튼1에서 다 제어하고 싶은 것입니다.
> 그래서 버튼1의 이벤트 핸들러안에다가 나머지 버튼들을 연결시켜서요,
> if문으로 해당 버튼의 sender가 왔을때 버튼의 이름을 확인하고 해당 메세지창을
> 띄우려는 것입니다. 근데 위와같이 하면은 버튼1만 작동하고 나머지는 아무소식이
> 없더군요..... 고수님들의 도움 기다릴께요.....