Q&A
- [컴포넌트]컴포넌트 제작에 관한 질문 입니다.
버튼을 클릭했을때 지정한 폼이 뜨도록하는 버튼 컴포넌트를 제작하려고 합니다.
unit Btn;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TBtn = class(TButton)
private
{ Private declarations }
FFormName: String;
procedure SetFormName(name:String);
protected
{ Protected declarations }
procedure Click; override;
public
{ Public declarations }
published
{ Published declarations }
property FormName:String read FFormName write SetFormName;
end;
procedure Register;
implementation
procedure TBtn.SetFormName(name:String);
begin
If name <> FFormName then
begin
FFormName := name;
Update;
end;
end;
procedure TBtn.Click;
var
i:Integer;
begin
inherited Click;
for i:=1 to Application.ComponentCount - 1 do
begin
If Application.Components[i].Name = FFormName then
begin
Application.Components[i].Show
ShowMessage('존재하는 폼입니다.');
exit;
end;
end;
ShowMessage('존재하지 않는 폼입니다.');
end;
procedure Register;
begin
RegisterComponents('Kiosk', [TBtn]);
end;
end.
주의의 조언으로 이렇게 이르게 되었습니다.
그런데 폼을 띄울수 있는 방법을 모르겠습니다.
고수님들의 친절한 답변 기다리겠습니다.!!
unit Btn;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TBtn = class(TButton)
private
{ Private declarations }
FFormName: String;
procedure SetFormName(name:String);
protected
{ Protected declarations }
procedure Click; override;
public
{ Public declarations }
published
{ Published declarations }
property FormName:String read FFormName write SetFormName;
end;
procedure Register;
implementation
procedure TBtn.SetFormName(name:String);
begin
If name <> FFormName then
begin
FFormName := name;
Update;
end;
end;
procedure TBtn.Click;
var
i:Integer;
begin
inherited Click;
for i:=1 to Application.ComponentCount - 1 do
begin
If Application.Components[i].Name = FFormName then
begin
Application.Components[i].Show
ShowMessage('존재하는 폼입니다.');
exit;
end;
end;
ShowMessage('존재하지 않는 폼입니다.');
end;
procedure Register;
begin
RegisterComponents('Kiosk', [TBtn]);
end;
end.
주의의 조언으로 이렇게 이르게 되었습니다.
그런데 폼을 띄울수 있는 방법을 모르겠습니다.
고수님들의 친절한 답변 기다리겠습니다.!!
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이수정
- 2000.03.20 06:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 양은주
- •
- 2000.03.20 06:21
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•2000.03.20 12:33음.. 아래의 의미는 상속이 아닌것 같네여. 원하시는 컴포넌트 제작시 그냥 property에 TGlyph라는 객체...
-
- 싸이코
- 2000.03.20 03:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금해요
- •
- 2000.03.20 03:01
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.20 04:06아래로 연락해 보세요... 국내 총판-INPRISE 전 제품 Borland Tool관련 (주)다우기술 서울시 강...
-
- 백종희
- 2000.03.20 01:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 양은주
- •
- 2000.03.20 00:41
- 1 COMMENTS
- /
- 0 LIKES
버튼을 클릭했을때 지정한 폼이 뜨도록하는 버튼 컴포넌트를 제작하려고 합니다. unit Btn; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TBtn = class(TButton) private {...-
최용일•2000.03.20 02:50형변환만 해주세요... 모들형식으로 띄우실려면 Show대신에 ShowModal을 쓰시면 됩니다. > procedure...
-
- 최진실
- •
- 2000.03.20 00:05
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.20 09:03아래와 같이 DC(TCanvas.Handle)의 맵핑모드를 바꾸어주시면 됩니다. 함수에 대한 자세한 설명은 도움말...
-
최진실•2000.03.20 08:40초용일님 답변을 올려주셔서 감사합니다. 올려주신 코드를 약간 수정해서 그렸습니다. 근데 하얀여백...
-
최용일•2000.03.20 09:29저는 최용일입니다. 초용일이 아님니다. 아래의 소스만으론 이상이 없습니다. 원본 비트맵을 확인해 보...
-
- sun
- •
- 2000.03.19 23:16
- 1 COMMENTS
- /
- 0 LIKES
-
강민주•2000.03.20 06:25sun wrote: > 출력하고자 하는 데이타를 쿼리한다음 스트링그리드로 데이타를 출력하고자 합니다. > 출...
-
- 최두승
- 2000.03.19 22:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 구철호
- 2000.03.19 19:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 델LOVE
- •
- 2000.03.19 11:03
- 3 COMMENTS
- /
- 0 LIKES
-
장은석•2000.03.19 12:34델LOVE wrote: > DBGRID 에서 마지막행의 처음열을 가지고와서 그 값(문자형)을 숫자형으로 바꾸어 > 그...
-
델LOVE•2000.03.20 09:19장은석 wrote: > 델LOVE wrote: > > DBGRID 에서 마지막행의 처음열을 가지고와서 그 값(문자형)을 숫자...
-
델LOVE•2000.03.20 08:11장은석 wrote: > 델LOVE wrote: > > DBGRID 에서 마지막행의 처음열을 가지고와서 그 값(문자형)을 숫자...
-
- 급한사람
- •
- 2000.03.19 09:53
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•2000.03.20 12:35음.. 무엇인가 동적으로 생성을 하시고 없애주질 않는것 같네여.. 그럴때는 디버깅 툴을 이용하시면 조...
-
- 박성민
- 2000.03.19 08:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 백록화
- 2000.03.19 08:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 최은정
- •
- 2000.03.19 05:57
- 1 COMMENTS
- /
- 0 LIKES
-
장은석•2000.03.19 13:33최은정 wrote: > 파워빌더는 테이블관계를 한눈에 볼수 있는것으로 알고 있는데.. > 델파이에서는 그런 ...
-
- 한일석
- •
- 2000.03.19 13:16
- 5 COMMENTS
- /
- 0 LIKES
-
한일석•2000.03.20 22:33안녕하세요.. 고수님들의 조언을 근거로 제가 여러가지 방법을 시도한 결과 정석이 아닐지라도 해결했습니...
-
김두현•2000.03.19 07:35한일석 wrote: > 안녕하세요.. 델파이 초보자인데요. 급한 문제가 발생해서 질문을 합니다. > > 아래와...
-
한일석•2000.03.19 13:30답변 정말 감사힙니다. 고수님이 가르쳐 주신 방법으로 해보았는데 계속 read-only dataset이라 수정이 ...
-
하얀까마귀•2000.03.19 05:54안녕하세요 하얀까마귀 입니다. 쿼리의 경우에는 바로 수정 삭제등이 불가능 합니다. 그걸 가능하게 할...
-
한일석•2000.03.19 13:31답변 정말 감사힙니다. 쿼리를 쓰면서 가능하게 할려면. UpdateSQL Component를 사용해서 SQL Component...
-
- 김영욱
- 2000.03.19 03:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 이빈
- •
- 2000.03.19 02:35
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.19 08:22보내드리겠습니다. 이빈 wrote: > 트렌스버튼 컴포넌트를 구할수 없을까요... > 제가 좀 필요하거든요...
-
이빈•2000.03.20 17:43최용일 wrote: > 보내드리겠습니다. > > 이빈 wrote: > > 트렌스버튼 컴포넌트를 구할수 없을까요... ...
-
- 김지호
- 2000.03.19 01:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 이윤환
- •
- 2000.03.18 23:42
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.18 23:55다음과 같이 해보세요... procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin ...
모들형식으로 띄우실려면 Show대신에 ShowModal을 쓰시면 됩니다.
> procedure TBtn.Click;
> begin
> ...
> begin
> TCustomForm(Application.Components[i]).Show; <===========
> ....
양은주 wrote:
> 버튼을 클릭했을때 지정한 폼이 뜨도록하는 버튼 컴포넌트를 제작하려고 합니다.
>
> unit Btn;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
> TBtn = class(TButton)
> private
> { Private declarations }
> FFormName: String;
> procedure SetFormName(name:String);
> protected
> { Protected declarations }
> procedure Click; override;
> public
> { Public declarations }
> published
> { Published declarations }
> property FormName:String read FFormName write SetFormName;
>
> end;
>
> procedure Register;
>
> implementation
>
> procedure TBtn.SetFormName(name:String);
> begin
> If name <> FFormName then
> begin
> FFormName := name;
> Update;
> end;
> end;
>
> procedure TBtn.Click;
> var
> i:Integer;
> begin
> inherited Click;
> for i:=1 to Application.ComponentCount - 1 do
> begin
> If Application.Components[i].Name = FFormName then
> begin
> Application.Components[i].Show
> ShowMessage('존재하는 폼입니다.');
> exit;
> end;
> end;
> ShowMessage('존재하지 않는 폼입니다.');
> end;
>
> procedure Register;
> begin
> RegisterComponents('Kiosk', [TBtn]);
> end;
>
> end.
>
> 주의의 조언으로 이렇게 이르게 되었습니다.
> 그런데 폼을 띄울수 있는 방법을 모르겠습니다.
>
> 고수님들의 친절한 답변 기다리겠습니다.!!
>