Q&A
- 질문제목과 분류를 꼭 해주시길 부탁드립니다.
저는 지금 쿼리툴을 만들고 있습니다.
다른 사람 소스를 참고 하며 만들면서 소스와 똑같은 구조로 해봤는데 저한테만 에러가
자꾸 나는 것같아 도움을 청합니다.
폼에 스크롤 박스를 동적생성하고 버튼클릭이벤트때 닫기버튼 올라와 있는 판넬을 동적생성하고 닫기 버튼을 다시 누르면 판넬이 없어지는 것인데
닫기버튼 클릭할때마다 EAccess나 EAbstractError가 발생합니다.
그 부분만 떼서 올렸는데 어디가 잘못됐는지 조언 좀 부탁드립니다.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TAPanel = class(TPanel)
Btn : TButton;
procedure btnClick(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
Destructor destroy; override;
end;
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
APanel : TAPanel;
AScroll : TScrollBox;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
x, y : Integer;
begin
APanel := TAPanel.Create(Self);
APanel.Parent := AScroll;
APanel.Top := RanDom(AScroll.Height);
APanel.Left := RanDom(AScroll.Width);
APanel.Btn.OnClick := APanel.btnClick;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Ascroll := TSCrollBox.Create(Self);
AScroll.Parent := Self;
AScroll.Align := alClient;
end;
{ TAPanel }
procedure TAPanel.btnClick(Sender: TObject);
begin
Self.free; //여기서 EAbstractError발생
end;
constructor TAPanel.Create(AOwner: TComponent);
begin
inherited;
Btn := TButton.Create(Self);
Btn.parent := Self;
Btn.Caption := 'x';
end;
destructor TAPanel.destroy;
begin
inherited;
end;
end.
/////////////여기는 폼소스
object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 392
Width = 688
Height = 61
Align = alBottom
Caption = 'Panel1'
TabOrder = 0
object Button1: TButton
Left = 72
Top = 24
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 192
Top = 16
Width = 75
Height = 25
Caption = 'Button2'
TabOrder = 1
end
end
end
다른 사람 소스를 참고 하며 만들면서 소스와 똑같은 구조로 해봤는데 저한테만 에러가
자꾸 나는 것같아 도움을 청합니다.
폼에 스크롤 박스를 동적생성하고 버튼클릭이벤트때 닫기버튼 올라와 있는 판넬을 동적생성하고 닫기 버튼을 다시 누르면 판넬이 없어지는 것인데
닫기버튼 클릭할때마다 EAccess나 EAbstractError가 발생합니다.
그 부분만 떼서 올렸는데 어디가 잘못됐는지 조언 좀 부탁드립니다.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TAPanel = class(TPanel)
Btn : TButton;
procedure btnClick(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
Destructor destroy; override;
end;
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
APanel : TAPanel;
AScroll : TScrollBox;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
x, y : Integer;
begin
APanel := TAPanel.Create(Self);
APanel.Parent := AScroll;
APanel.Top := RanDom(AScroll.Height);
APanel.Left := RanDom(AScroll.Width);
APanel.Btn.OnClick := APanel.btnClick;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Ascroll := TSCrollBox.Create(Self);
AScroll.Parent := Self;
AScroll.Align := alClient;
end;
{ TAPanel }
procedure TAPanel.btnClick(Sender: TObject);
begin
Self.free; //여기서 EAbstractError발생
end;
constructor TAPanel.Create(AOwner: TComponent);
begin
inherited;
Btn := TButton.Create(Self);
Btn.parent := Self;
Btn.Caption := 'x';
end;
destructor TAPanel.destroy;
begin
inherited;
end;
end.
/////////////여기는 폼소스
object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 392
Width = 688
Height = 61
Align = alBottom
Caption = 'Panel1'
TabOrder = 0
object Button1: TButton
Left = 72
Top = 24
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 192
Top = 16
Width = 75
Height = 25
Caption = 'Button2'
TabOrder = 1
end
end
end
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 안희준
- •
- 2000.10.14 22:16
- 1 COMMENTS
- /
- 0 LIKES
-
바사기몬•2000.10.15 23:27엔터키 처리시 tab키와 동일하게 처리하게 되는 루틴은 거의 다음과 같은 코딩이 들어 갑니다.. 얘기 ...
-
- 김상배
- 2000.10.14 21:54
- 0 COMMENTS
- /
- 0 LIKES
-
- delpo
- •
- 2000.10.14 21:38
- 1 COMMENTS
- /
- 0 LIKES
-
양우•2000.10.14 23:10sql.Add('select max(substring(코드 from 5 for 3)) form 테이블'); 이 부분을 ...
-
- 왕초보
- •
- 2000.10.14 19:44
- 1 COMMENTS
- /
- 0 LIKES
-
김하늘•2000.10.14 20:54Case Integer of 1 : (users: array[0..MAX_USER] of stCntUser); 이렇게 바꾸시져 변수명(...
-
- 초보
- •
- 2000.10.14 19:29
- 2 COMMENTS
- /
- 0 LIKES
-
김하늘•2000.10.14 21:03function dl_getdigs(line : Integer; count : Integer; dgts:PChar): Boolean; stdcall; external 'DIALO...
-
초보•2000.10.15 00:47알려주신 내용 감사합니다. 알려주신 방법으로 했는데 제가 원하는 결과값이 안 나오네요.. 좀더...
-
- jinnon
- •
- 2000.10.14 19:26
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2000.10.14 21:29안녕하세여... 아래에 소스는 문제가 없는것 같습니다. 지금 제컴에서는 아주 잘되거든여.. 문제가 다...
-
- 날라리야
- 2000.10.14 19:25
- 0 COMMENTS
- /
- 0 LIKES
-
- jinnon
- •
- 2000.10.14 19:24
- 1 COMMENTS
- /
- 0 LIKES
저는 지금 쿼리툴을 만들고 있습니다. 다른 사람 소스를 참고 하며 만들면서 소스와 똑같은 구조로 해봤는데 저한테만 에러가 자꾸 나는 것같아 도움을 청합니다. 폼에 스크롤 박스를 동적생성하고 버튼클릭이벤트때 닫기버튼 올라와 있는...-
어린왕자•2000.10.18 01:43안녕하세요..영원한 델초보 어린왕자입니다.. 저가 보기에는 말이죠.. 버튼이 안죽었는데 버튼의 parent...
-
- 태여니
- 2000.10.14 19:23
- 0 COMMENTS
- /
- 0 LIKES
-
- Kheart
- •
- 2000.10.14 19:21
- 3 COMMENTS
- /
- 0 LIKES
-
김현•2000.10.16 21:17Shift+Ctrl+I Ctrl+K+I 와 같은 기능 Shift+Ctrl+U Ctrl+K+U 와 같은 기능 Ctrl+O+K Alt로 잡은 ...
-
김영대•2000.10.14 21:35Kheart wrote: > Visual Basic에서는 한줄이나 문단을 블럭지어서 들여쓰기나, 내여쓰기를 할 수 있는데 ...
-
이광형•2000.10.14 20:53블록 지어서 Ctrl+K,I : 들여쓰기 Ctrl+K,u : 내어쓰기 일거예요... 블록 지정은 아실거구...
-
- 이발사
- •
- 2000.10.14 18:56
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.10.14 21:17이발사 wrote: > 안녕하세예... > 다름이 아니라 프로그램을 종료할 때 아래와 같은 에러메세지가 뜨거든...
-
- 델왕초보
- •
- 2000.10.14 18:22
- 2 COMMENTS
- /
- 0 LIKES
-
김영대•2000.10.14 21:41글세여...!!!!! 혹시 폼에 있는 버튼중에 ModalResult 가 mrok이나 .... 설정이 되어있는지 확인해보세...
-
어린왕자•2000.10.14 21:18델왕초보 wrote: > > 데이타베이스 Parodox7을 사용하고 있는데요 > > 다이얼로그 입력창을 만들고...
-
- 철
- •
- 2000.10.14 18:19
- 1 COMMENTS
- /
- 0 LIKES
-
최성진•2000.10.14 21:36철 wrote: > 프로젝트 개발시에 각 테이블별로 추가, 저장, 삭제를 오라클 > 저장 프로시져를 사용해서 ...
-
- 안희준
- •
- 2000.10.14 18:19
- 1 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.15 07:48안녕하세요? 고드름 김정입니다. 만약 패키지나 소스에 있는 특정 파일의 일부만 고쳐서 사용하실때는 ...
-
- 이정현
- 2000.10.14 17:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 돌파리
- 2000.10.14 16:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 이용
- 2000.10.14 14:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보API
- 2000.10.14 07:55
- 0 COMMENTS
- /
- 0 LIKES
-
- won
- 2000.10.14 07:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 정성필
- 2000.10.14 06:50
- 0 COMMENTS
- /
- 0 LIKES
저가 보기에는 말이죠..
버튼이 안죽었는데 버튼의 parent패널이 죽어서 그런거 같습니다..
PostMessage를 보내야할듯...^^; 워낙초보라서..다음과 같이 추가해보세요.
될런지 모르겠네요
procedure WMUSER(Var Msg:TMessage);message WM_USER_DELETE; // 선언
procedure TForm1.WmUser(Var Msg:TMessage);
begin
if Assigned (TObject(Msg.wParam)) then
begin
SelectNext(TWinControl(Msg.wParam),True,true);
FreeAndNil(TObject(Msg.wParam));
end;
end;
버튼클릭이벤트 마지막에..
PostMessage(Handle,WM_USER, WPARAM(tmpPanel),0) // tmpPanel은 지워질 패널
팁을 참고했어염..
즐코하세염..
jinnon wrote:
> 저는 지금 쿼리툴을 만들고 있습니다.
> 다른 사람 소스를 참고 하며 만들면서 소스와 똑같은 구조로 해봤는데 저한테만 에러가
> 자꾸 나는 것같아 도움을 청합니다.
>
> 폼에 스크롤 박스를 동적생성하고 버튼클릭이벤트때 닫기버튼 올라와 있는 판넬을 동적생성하고 닫기 버튼을 다시 누르면 판넬이 없어지는 것인데
> 닫기버튼 클릭할때마다 EAccess나 EAbstractError가 발생합니다.
>
> 그 부분만 떼서 올렸는데 어디가 잘못됐는지 조언 좀 부탁드립니다.
>
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, ExtCtrls;
>
> type
> TAPanel = class(TPanel)
> Btn : TButton;
> procedure btnClick(Sender: TObject);
> public
> constructor Create(AOwner: TComponent); override;
> Destructor destroy; override;
> end;
> TForm1 = class(TForm)
> Panel1: TPanel;
> Button1: TButton;
> Button2: TButton;
> procedure Button1Click(Sender: TObject);
> procedure FormCreate(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
> APanel : TAPanel;
> AScroll : TScrollBox;
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> x, y : Integer;
> begin
>
> APanel := TAPanel.Create(Self);
> APanel.Parent := AScroll;
> APanel.Top := RanDom(AScroll.Height);
> APanel.Left := RanDom(AScroll.Width);
> APanel.Btn.OnClick := APanel.btnClick;
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Ascroll := TSCrollBox.Create(Self);
> AScroll.Parent := Self;
> AScroll.Align := alClient;
> end;
>
> { TAPanel }
>
> procedure TAPanel.btnClick(Sender: TObject);
> begin
> Self.free; //여기서 EAbstractError발생
> end;
>
> constructor TAPanel.Create(AOwner: TComponent);
> begin
> inherited;
> Btn := TButton.Create(Self);
> Btn.parent := Self;
> Btn.Caption := 'x';
>
> end;
>
> destructor TAPanel.destroy;
> begin
> inherited;
> end;
>
> end.
>
> /////////////여기는 폼소스
> object Form1: TForm1
> Left = 192
> Top = 107
> Width = 696
> Height = 480
> Caption = 'Form1'
> Color = clBtnFace
> Font.Charset = DEFAULT_CHARSET
> Font.Color = clWindowText
> Font.Height = -11
> Font.Name = 'MS Sans Serif'
> Font.Style = []
> OldCreateOrder = False
> OnCreate = FormCreate
> PixelsPerInch = 96
> TextHeight = 13
> object Panel1: TPanel
> Left = 0
> Top = 392
> Width = 688
> Height = 61
> Align = alBottom
> Caption = 'Panel1'
> TabOrder = 0
> object Button1: TButton
> Left = 72
> Top = 24
> Width = 75
> Height = 25
> Caption = 'Button1'
> TabOrder = 0
> OnClick = Button1Click
> end
> object Button2: TButton
> Left = 192
> Top = 16
> Width = 75
> Height = 25
> Caption = 'Button2'
> TabOrder = 1
> end
> end
> end
>
>