Q&A
- 이거 왜 에러인가 봐주세여
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, StdCtrls, comCtrls;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
SpeedButton1: TSpeedButton;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Enter(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
procedure AddButtons(ToolBar:TToolBar;Const ButtonCations:array of String);
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.AddButtons(ToolBar : TToolBar ; Const ButtonCations : array of String);
var
I : Integer;
begin
for I := 0 to High(ButtonCaptions) do
begin
with TToolButton.Create(ToolBar) do
begin
parent := ToolBar;
Caption := ButtonCaptions[I];
if (ButtonCaptions[I] = '|') then
Style := tbsSeparator
else
Style := tbsButton;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
BitBtn1.Kind := bkOK;
BitBtn2.Kind := bkCancel;
BitBtn3.Kind := bkHelp;
end;
procedure TForm1.Button1Enter(Sender: TObject);
begin
button1.Cursor := crHandpoint;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ToolBar : TToolBar;
begin
ToolBar := TToolBar.Creatr(Self);
ToolBar.parent := Self;
AddButtons(ToolBar, [ '새파일','저장','|','자르기','복사하기','붙여넣기']);
ToolBar.ShowCaptions := True;
ToolBar.Height := 40;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SpeedButton1.Glyph.LoadFormFile('c:windows물방울.bmp');
SpeedButton1.NumGlyphs := 4;
end;
end.
이건데여...
에러가 나여..
봐주세용...
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, StdCtrls, comCtrls;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
SpeedButton1: TSpeedButton;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Enter(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
procedure AddButtons(ToolBar:TToolBar;Const ButtonCations:array of String);
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.AddButtons(ToolBar : TToolBar ; Const ButtonCations : array of String);
var
I : Integer;
begin
for I := 0 to High(ButtonCaptions) do
begin
with TToolButton.Create(ToolBar) do
begin
parent := ToolBar;
Caption := ButtonCaptions[I];
if (ButtonCaptions[I] = '|') then
Style := tbsSeparator
else
Style := tbsButton;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
BitBtn1.Kind := bkOK;
BitBtn2.Kind := bkCancel;
BitBtn3.Kind := bkHelp;
end;
procedure TForm1.Button1Enter(Sender: TObject);
begin
button1.Cursor := crHandpoint;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ToolBar : TToolBar;
begin
ToolBar := TToolBar.Creatr(Self);
ToolBar.parent := Self;
AddButtons(ToolBar, [ '새파일','저장','|','자르기','복사하기','붙여넣기']);
ToolBar.ShowCaptions := True;
ToolBar.Height := 40;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SpeedButton1.Glyph.LoadFormFile('c:windows물방울.bmp');
SpeedButton1.NumGlyphs := 4;
end;
end.
이건데여...
에러가 나여..
봐주세용...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 현명한용이
- •
- 2000.04.23 08:37
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.04.23 12:09현명한용이 wrote: > 레포트로 계산기 프로그램에서 라디오 버튼을 누르면 2진수 8진수 16진수로 변환하는...
-
- 톰과 제리
- 2000.04.23 08:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- •
- 2000.04.23 07:10
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.04.23 07:38초보자 wrote: > combo box에 item이 10개가 있다고 가정해서요. > > 폼 초기화해서 10개의 item을 add...
-
최용일•2000.04.23 07:38ComboBox1.ItemIndex := 9; 초보자 wrote: > combo box에 item이 10개가 있다고 가정해서요. > > 폼...
-
- 슬픈사슴
- 2000.04.23 06:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 이정민
- •
- 2000.04.23 05:55
- 1 COMMENTS
- /
- 0 LIKES
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, comCtrls; type TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; SpeedButto...-
최용일•2000.04.23 06:19안녕하세요. 최용일입니다. 또 보게 되는군요. 아!! 이름을 잊어버렸네요. 헐헐~~~ 아래 유닛의 에러...
-
- [델파이]
- 2000.04.23 05:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 이새봄
- 2000.04.23 02:20
- 0 COMMENTS
- /
- 0 LIKES
-
- nubigo
- •
- 2000.04.23 01:24
- 2 COMMENTS
- /
- 0 LIKES
-
윤석천•2000.04.26 01:20nubigo wrote: > string은 sql 문에 > sql.add('select * from "test.db" where name='''+up+''''); > ...
-
정성훈•2000.04.23 08:33nubigo wrote: > 고수님들 안녕하십니까? > 도움은 못 주고 항상 도움만 받아 미안합니다. > > 미안한...
-
- 강진호
- 2000.04.23 00:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 델Man
- 2000.04.22 23:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 정종구
- 2000.04.22 23:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 유니
- •
- 2000.04.22 22:41
- 3 COMMENTS
- /
- 0 LIKES
-
seagod•2000.04.23 00:40델파이 3.0, 4.0사용자를 위한 퀵리포트버젼이 있는걸로 아는데요 요걸 설치를하면 3.0 4.0에서 델파이 2....
-
유니•2000.04.24 19:01그런가여? 그럼 델파이4.0중에서 퀵레포트용을 구해야 한다는 말씀이신가여? 그럼 혹 그걸 어떻게 구해야...
-
유니•2000.04.24 19:01그런가여? 그럼 델파이4.0중에서 퀵레포트용을 구해야 한다는 말씀이신가여? 그럼 혹 그걸 어떻게 구해야...
-
- kciron
- •
- 2000.04.22 21:57
- 2 COMMENTS
- /
- 0 LIKES
-
윤병익•2000.04.22 21:56kciron wrote: > 안녕하십니까? > > 델파이를 이용하여 출력 프로그램을 만들었는데. 최근에 나온 > ...
-
kciron•2000.04.22 22:04윤병익 wrote: > kciron wrote: > > 안녕하십니까? > > > > 델파이를 이용하여 출력 프로그램을 만들...
-
- 초보 델파이...백
- •
- 2000.04.22 21:15
- 1 COMMENTS
- /
- 0 LIKES
-
DelChobo•2000.04.22 22:21초보 델파이...백 wrote: > 한글을 유니코드로 바꾸려면 어찌해야 되나요? > > 별 함수도 없는것 같고,...
-
- 김지현
- 2000.04.22 21:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 써니
- •
- 2000.04.22 21:07
- 2 COMMENTS
- /
- 0 LIKES
-
parkisu•2000.04.23 00:42써니 wrote: > 안녕하세요. 델파이 QuickReport에 관해서 너무 급한게 있어서요. > 데이타를 입력하여 DB...
-
써니•2000.04.23 08:26답변은 감사드립니다. QRDBText를 이용한다는것은 알고 있습니다. 제가 궁금한것은 이 QuickReport하단에 ...
-
- 최정원
- •
- 2000.04.22 19:58
- 3 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.04.22 20:28안녕하세요 하얀까마귀 입니다.. ... 문자열을 회전시키는건 안됩니다.... 이건 폰트의 문제니까.......
-
최정원•2000.04.22 21:31답변 감사합니다. 그런데, 답변하여주신 내용중에서 그래픽으로 처리해야 한다고 하셨는데 어떤식으로 처...
-
최용일•2000.04.23 07:55안녕하세요. 최용일입니다. 책을 찾아보시는 것이 더 나으실것 같은데요. 대학교재로 쓰이는 그래픽 프...
-
- 궁금녀
- •
- 2000.04.22 19:40
- 2 COMMENTS
- /
- 0 LIKES
-
강인규•2000.04.22 23:43다중 사용자 환경이라면 디비를 이용하는것이 바람직하고 단일사용자 환경이라면 ini화일을 이용할 수도 있...
-
윤티•2000.04.23 09:30델코의 자료실에 가면 있을걸요. 패스워드창이라고 .... http://www.delphikorea.com
-
- 초보1
- •
- 2000.04.22 19:00
- 4 COMMENTS
- /
- 0 LIKES
-
윤병익•2000.04.22 19:25초보1 wrote: > > 초보자가 글을 올립니다. > table의 주소필드(addr)는 40자리 입니다. > 화면상에...
-
하얀까마귀•2000.04.22 20:53안녕하세요 하얀까마귀 입니다... 말씀 처럼 1개의 필드의 내용을 20자리씩 나누어서 사용한다면... 델...
-
초보1•2000.04.22 20:34답변 감사합니다. 그러나 다른 방법을 혹시 아시는지요.. table은 DBF 파일이거든요.
-
윤병익•2000.04.22 21:17초보1 wrote: > 답변 감사합니다. > 그러나 다른 방법을 혹시 아시는지요.. > table은 DBF 파일이거든요...
-
- 박용준
- •
- 2000.04.22 18:25
- 2 COMMENTS
- /
- 0 LIKES
-
안경잡이•2000.04.22 19:41SQL문장을 Parsing하시는게 어떤지요? (저같은경우엔 간이 SQL Parser를 제작하여 해결했습니다.)
-
박용준•2000.04.22 20:30직접 제작하신 SQL Parser의 소스를 볼 수 있을까요. 답변에 갑사드립니다. 행복하세요.
또 보게 되는군요. 아!! 이름을 잊어버렸네요. 헐헐~~~
아래 유닛의 에러는 모두 철자를 잘 못써서 난 에러네요..
Undeclared identifier에러가 발생했을땐 제일먼저 철자가 틀렸나 잘 살펴보세요.
^^ 항상 즐코하세요.
이정민 wrote:
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> Buttons, StdCtrls, comCtrls;
>
> type
> TForm1 = class(TForm)
> BitBtn1: TBitBtn;
> BitBtn2: TBitBtn;
> BitBtn3: TBitBtn;
> SpeedButton1: TSpeedButton;
> Button1: TButton;
> Button2: TButton;
> procedure FormCreate(Sender: TObject);
> procedure Button1Enter(Sender: TObject);
> procedure Button1Click(Sender: TObject);
> procedure Button2Click(Sender: TObject);
> private
> { Private declarations }
**********************************************************************************
> public // <<<<<<<<<< ButtonCaptions 이것인것 같은데...
> procedure AddButtons(ToolBar:TToolBar;Const ButtonCations:array of String); // <<<<<
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
**********************************************************************************
// <<<<<<<<<<<<<< 여기도 ButtonCaptions
> procedure TForm1.AddButtons(ToolBar : TToolBar ; Const ButtonCations : array of String); // <<<<<<<<<<<
>
> var
> I : Integer;
> begin
> for I : 0 to High(ButtonCaptions) do // <<<
> begin
> with TToolButton.Create(ToolBar) do
> begin
> parent := ToolBar;
> Caption := ButtonCaptions[I];
> if (ButtonCaptions[I] = '|') then
> Style := tbsSeparator
> else
> Style := tbsButton;
> end;
> end;
> end;
>
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> BitBtn1.Kind := bkOK;
> BitBtn2.Kind := bkCancel;
> BitBtn3.Kind := bkHelp;
> end;
>
> procedure TForm1.Button1Enter(Sender: TObject);
> begin
> button1.Cursor := crHandpoint;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> ToolBar : TToolBar;
> begin
**********************************************************************************
// <<<<<< 여긴 TTollBar.Create
> ToolBar := TToolBar.Creatr(Self); //<<<<
> ToolBar.parent := Self;
> AddButtons(ToolBar, [ '새파일','저장','|','자르기','복사하기','붙여넣기']);
> ToolBar.ShowCaptions := True;
> ToolBar.Height := 40;
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
**********************************************************************************
// <<<<<<<< 여긴 Glyph.LoadFromFile
> SpeedButton1.Glyph.LoadFormFile('c:windows물방울.bmp'); //<<<<<
> SpeedButton1.NumGlyphs := 4;
> end;
>
> end.
>
> 이건데여...
>
> 에러가 나여..
>
> 봐주세용...