Q&A
- 동적생성된 스피드버튼과 팝업메뉴에 대한 질문입니다..
스피드 버튼을 툴바위에 동적으로 생성을 하고
스피드 버튼을 클릭(마우스 왼쪽 버튼)했을때
그 스피드 버튼에 해당하는 팝업을 띄우려고 합니다..
저는 팝업창을 띄우는 마우스 클릭 이벤트를 하나 정의하고
스피드 버튼을 동적 생성할때 그 이벤트를 불러다 썼습니다.
그런데 제일 마지막으로 생성된 팝업메뉴가 모든 버튼에 적용이 되는군요..
각 버튼마다 생성되는 팝업이 틀려야 하거든요...
어떻게 하면 좋을지 방법을 가르쳐 주세요..
아래는 제 소스를 간추린 것입니다..
type
procedure MyButtonClick(Sender: TObject);
.
.
.
implementation
procedure TForm1.MyButtonClick(Sender: TObject);
begin
PopupMenu1.Popup(Left+ToolBar1.Left+TSpeedButton(Sender).Left + 5,
Top+ToolBar1.Top+TSpeedButton(Sender).Height + 47);
end;
.
.
.
while NOT EOF(txt) do //txt는 파일
begin
.
.
.
if aChar[1] = 'S' then
begin
if Row = 1 then
begin
ButtonCaption := Parsing(Line); //Parsing은 제가 만든 함수
NewItem := TMenuItem.Create(PopupMenu1);
NewItem.Caption := ButtonCaption;
PopupMenu1.Items.Add(NewItem);
end
else
begin
with TSpeedButton.Create(Self) do
begin
Parent := ToolBar1;
Flat := True;
Left := MaxInt;
end;
end; //if Row 끝
end; //if 'S' 끝
if aChar[1] = 'X' then
begin
ButtonCaption := Parsing(Line);
PopupMenu1 := TPopupMenu.Create(application);
PopupMenu1.AutoHotkeys := maManual;
with TSpeedButton.Create(Self) do
begin
Parent := ToolBar1;
Flat := True;
Left := MaxInt;
OnClick := MyButtonClick;
end;
Row := Row+1;
end; //if 'X' 끝
if Copy(Line,1,3) = 'E:X' then
begin
Row := Row-1;
end;
end; //while 끝
스피드 버튼을 클릭(마우스 왼쪽 버튼)했을때
그 스피드 버튼에 해당하는 팝업을 띄우려고 합니다..
저는 팝업창을 띄우는 마우스 클릭 이벤트를 하나 정의하고
스피드 버튼을 동적 생성할때 그 이벤트를 불러다 썼습니다.
그런데 제일 마지막으로 생성된 팝업메뉴가 모든 버튼에 적용이 되는군요..
각 버튼마다 생성되는 팝업이 틀려야 하거든요...
어떻게 하면 좋을지 방법을 가르쳐 주세요..
아래는 제 소스를 간추린 것입니다..
type
procedure MyButtonClick(Sender: TObject);
.
.
.
implementation
procedure TForm1.MyButtonClick(Sender: TObject);
begin
PopupMenu1.Popup(Left+ToolBar1.Left+TSpeedButton(Sender).Left + 5,
Top+ToolBar1.Top+TSpeedButton(Sender).Height + 47);
end;
.
.
.
while NOT EOF(txt) do //txt는 파일
begin
.
.
.
if aChar[1] = 'S' then
begin
if Row = 1 then
begin
ButtonCaption := Parsing(Line); //Parsing은 제가 만든 함수
NewItem := TMenuItem.Create(PopupMenu1);
NewItem.Caption := ButtonCaption;
PopupMenu1.Items.Add(NewItem);
end
else
begin
with TSpeedButton.Create(Self) do
begin
Parent := ToolBar1;
Flat := True;
Left := MaxInt;
end;
end; //if Row 끝
end; //if 'S' 끝
if aChar[1] = 'X' then
begin
ButtonCaption := Parsing(Line);
PopupMenu1 := TPopupMenu.Create(application);
PopupMenu1.AutoHotkeys := maManual;
with TSpeedButton.Create(Self) do
begin
Parent := ToolBar1;
Flat := True;
Left := MaxInt;
OnClick := MyButtonClick;
end;
Row := Row+1;
end; //if 'X' 끝
if Copy(Line,1,3) = 'E:X' then
begin
Row := Row-1;
end;
end; //while 끝
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 어피리
- •
- 2001.09.19 22:54
- 4 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.09.20 03:09어피리 wrote: > 백업 디렉토리를 만들고 데이타를 전부 복사하는 루틴입니다. > 파일을 하나씩 복사할 ... -
어피리•2001.09.21 19:13홍성락 wrote: > 어피리 wrote: > > 백업 디렉토리를 만들고 데이타를 전부 복사하는 루틴입니다. > > ...
-
홍성락•2001.09.21 20:35어피리 wrote: > 홍성락 wrote: > > 어피리 wrote: > > > 백업 디렉토리를 만들고 데이타를 전부 복사하...
-
어피리•2001.09.22 00:56성공 했음다...^^
-
- 철
- •
- 2001.09.19 21:55
- 4 COMMENTS
- /
- 0 LIKES
-
쥐 <:( )~•2001.09.19 22:10철 wrote: > 개발환경 : windows2000에서 오라클8i와 델파이 > 리스너도 제데로 떠있고 sql plus상에서 ...
-
철•2001.09.19 22:48쥐 > Error while trying to retrieve text for error > > ora-06401' > > 이러게 나오는 군요. > >...
-
쥐 <:()~•2001.09.20 01:03철 wrote: > 쥐 'oracle에 연결되어 있지 않다는 메시지가 나오는 군요 > > > 쥐 > 철 wrote: > >...
-
쥐 <:( )~•2001.09.19 23:04철 wrote: > 쥐 'oracle에 연결되어 있지 않다는 메시지가 나오는 군요 > > > 쥐 > 철 wrote: > >...
-
- 이기운
- •
- 2001.09.19 21:33
- 1 COMMENTS
- /
- 0 LIKES
-
쥐 <:( )~•2001.09.19 22:12이기운 wrote: > CD를 구입하여 드라이브를 실행했는데 MMSYSTEM281 파일이 손상됐는지 또는 지원드라이브...
-
- 아줌마
- •
- 2001.09.19 21:15
- 1 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.12.04 01:32새로알게된 사실인데.. c:winntsystem32 폴더에 registry 된 gdb 파일이 존재하고. 서버 작동시 c:wi...
-
- 홍성락
- 2001.09.19 20:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이 왕초보
- •
- 2001.09.19 20:43
- 1 COMMENTS
- /
- 0 LIKES
-
이채성•2001.09.20 01:39저또한 같은 환경에서 사용하지만 별 문제는 없습니다. 이것저것 궁리하시기 보다 밀어버리고 새로 설치...
-
- 구롱이^^
- •
- 2001.09.19 20:43
- 2 COMMENTS
- /
- 0 LIKES
-
쥐 <:( )~•2001.09.19 22:18구롱이^^ wrote: > 폼안에 Grid,editbox,combo 와 같은 컴포넌트가 있는데요... > 폼을 리사이즈했을때 ...
-
구롱이~^^•2001.09.20 19:51답변 감사합니다. 그런데요...제가 질문한게 그리 단순한게 아닌거 같거든요...적어두 저같은 초짜가보기...
-
- nSe@L
- •
- 2001.09.19 20:32
- 1 COMMENTS
- /
- 0 LIKES
-
nSe@L•2001.09.19 21:02nSe@L wrote: > 안녕하세요? > > 다름이 아니라 MS-SQL Server의 Float 데이터를 읽어 올 때 델파이에...
-
- 종종 나그네~~~
- 2001.09.19 19:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 고양이
- •
- 2001.09.19 19:33
- 2 COMMENTS
- /
- 0 LIKES
-
박지훈.임프•2001.09.20 11:09임프랍니다. 간단히 한마디로 말하면, 델파이와 C++Builder의 차이는 언어의 차이 이상도 이하도 아닙니...
-
이경문•2001.09.20 12:11어떤 분이 이런 엄청난 글을 올리나 했더니 bcbdn에 계시는 분이네요. 참으로 좋은 글입니다. 박지훈....
-
- 델초보
- •
- 2001.09.19 19:28
- 1 COMMENTS
- /
- 0 LIKES
스피드 버튼을 툴바위에 동적으로 생성을 하고 스피드 버튼을 클릭(마우스 왼쪽 버튼)했을때 그 스피드 버튼에 해당하는 팝업을 띄우려고 합니다.. 저는 팝업창을 띄우는 마우스 클릭 이벤트를 하나 정의하고 스피드 버튼을 동적 생성할때...-
홍성락•2001.09.19 22:13델초보 wrote: > 스피드 버튼을 툴바위에 동적으로 생성을 하고 > 스피드 버튼을 클릭(마우스 왼쪽 버튼)...
-
- albireo
- 2001.09.19 18:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 장정호
- •
- 2001.09.19 17:42
- 2 COMMENTS
- /
- 0 LIKES
-
쥐 <:( )~•2001.09.19 22:33장정호 wrote: > 안녕하세요.. > > 카드단말기와 통신을 하려고 합니다. > > 왕초보라 시리얼 통신...
-
하동호•2001.09.19 19:16장정호 wrote: > 안녕하세요.. > 카드단말기와 통신을 하려고 합니다. > 왕초보라 시리얼 통신은 해본적...
-
- 배순곤
- 2001.09.19 16:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 넘버원
- 2001.09.19 09:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이3.0
- 2001.09.19 08:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 문상연
- 2001.09.19 07:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이지컴
- •
- 2001.09.19 07:16
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.09.19 19:37이지컴 wrote: > > 안녕하세요... 또 물어보네요...! > > 테이블1,2,3,4가 있습니다. > > 테이...
-
- 몰디브
- •
- 2001.09.19 06:56
- 1 COMMENTS
- /
- 0 LIKES
-
나도 델초보•2001.09.20 10:40몰디브 wrote: > 안녕하세여 고수님들... > 한수 도움을 부탁드립니다. > > 출력내용은.. > > 매장...
-
- goodman
- •
- 2001.09.19 06:24
- 1 COMMENTS
- /
- 0 LIKES
-
이채성•2001.09.20 01:43TIniFiles Class를 사용하세요 goodman wrote: > 델파이를 처음으로 사용해봅니다. > 그래서 그런지...
> 스피드 버튼을 툴바위에 동적으로 생성을 하고
> 스피드 버튼을 클릭(마우스 왼쪽 버튼)했을때
> 그 스피드 버튼에 해당하는 팝업을 띄우려고 합니다..
>
>
> 저는 팝업창을 띄우는 마우스 클릭 이벤트를 하나 정의하고
> 스피드 버튼을 동적 생성할때 그 이벤트를 불러다 썼습니다.
>
>
> 그런데 제일 마지막으로 생성된 팝업메뉴가 모든 버튼에 적용이 되는군요..
> 각 버튼마다 생성되는 팝업이 틀려야 하거든요...
> 어떻게 하면 좋을지 방법을 가르쳐 주세요..
>
> 아래는 제 소스를 간추린 것입니다..
>
>
> type
>
> procedure MyButtonClick(Sender: TObject);
>
> .
> .
> .
>
> implementation
>
> procedure TForm1.MyButtonClick(Sender: TObject);
> begin
> PopupMenu1.Popup(Left+ToolBar1.Left+TSpeedButton(Sender).Left + 5,
> Top+ToolBar1.Top+TSpeedButton(Sender).Height + 47);
> end;
>
> .
> .
> .
>
> while NOT EOF(txt) do //txt는 파일
> begin
>
> .
> .
> .
>
> if aChar[1] = 'S' then
> begin
> if Row = 1 then
> begin
> ButtonCaption := Parsing(Line); //Parsing은 제가 만든 함수
> NewItem := TMenuItem.Create(PopupMenu1);
> NewItem.Caption := ButtonCaption;
> PopupMenu1.Items.Add(NewItem);
> end
> else
> begin
> with TSpeedButton.Create(Self) do
> begin
> Parent := ToolBar1;
> Flat := True;
> Left := MaxInt;
> end;
> end; //if Row 끝
> end; //if 'S' 끝
>
> if aChar[1] = 'X' then
> begin
> ButtonCaption := Parsing(Line);
> PopupMenu1 := TPopupMenu.Create(application);
> PopupMenu1.AutoHotkeys := maManual;
>
> with TSpeedButton.Create(Self) do
> begin
> Parent := ToolBar1;
> Flat := True;
> Left := MaxInt;
> OnClick := MyButtonClick;
> end;
>
> Row := Row+1;
>
> end; //if 'X' 끝
>
> if Copy(Line,1,3) = 'E:X' then
> begin
> Row := Row-1;
> end;
>
>
> end; //while 끝
/////////////////////////////////////////////////////////////////
문제는 버튼은 동적생성을 하나 팝업메뉴는 하나를 사용하게 되므로 일어나는것 같습니다.
2가지방법을 예시해보겠습니다.
1. 버튼생성시 팝업메뉴도 같이 생성하세요.
2.팝업메뉴를 공유하고자할때
버튼생성은 위와 같이 별도로하되 팝업메뉴 아이템생성부분은 빼구요
procedure TForm1.MyButtonClick(Sender: TObject);
begin
=>이부분에 txt는 파일내용과 TSpeedButton(Sender).Caption을 검색해
해당버튼 클릭때마다 팝업메뉴아이템을생성하세요
(위 내용중 반대로 버튼생성코드를 빼서 TSpeedButton(Sender).Caption에 맞게하시면됩니다)
PopupMenu1.Popup(Left+ToolBar1.Left+TSpeedButton(Sender).Left + 5,
Top+ToolBar1.Top+TSpeedButton(Sender).Height + 47);
end;