메뉴 ... 음 .. 파일.편집.. 도움말 .. 이런거 .. 에서 ... 프로그램정보를 누르면 폼이 하나 더 뜨도록 ;; 만들구있는데 ... 무언가 잘못된것 같아요 ... 어디가잘못되었는지좀 가르쳐 주세요 ... 초보라서 ... 막 붙여넣기하고 .. 혼자 배우고 있는중이에요 ;;
----------------------------------------------------------------------
이것이 .. 눌르면 튀어나와야할 창
unit About;
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type
TAboutBox = class(TForm)
Panel1: TPanel;
OKButton: TButton;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
{$R *.dfm}
end.
----------------------------------------------------------------------
type에 추가한것들
TWin2kAppForm = class(TForm)
와
procedure HelpAbout1Execute(Sender: TObject);
넣었구요 ...
----------------------------------------------------------------------
눌르는것 ..
procedure TWin2kAppForm.HelpAbout1Execute(Sender: TObject);
begin
AboutBox.ShowModal;
end;
======================================================================
초보라서 ... new 눌르면 .. 나오는것에서 .. 하나 찝어서 .. 혼자서 공부중인데;; 잘못된거 있으면 가르쳐 주세요 +_+;; 어제 시작했더요 ;;
흠~ 이것만 보고는 뭐가 잘못됬는지 판단하기 어렵네요.... 쩝~
책에 있는 소스 붙여넣기 하실때 private위에 있는 부분, 컴포넌트 선언부분은 코딩 붙여넣지 마세요...
private위에 있는것들은 컴포넌트 팔레트에서 컴포넌트 선택해서 폼에 떨구어 놓으시구, 이름(Name속성)만 바꾸어주세요... 판넬하나 버튼하나 이미지하나 라벨4개...
HelpAbout1Execute는 이벤트 같은데... HelpAbout1이라는 컴포넌트 클릭해보시면 오른쪽에 나타나는 속성창에 이벤트탭에 보시면 OnExecute있을겁니다.
빈공간 클릭해서 이벤트 연결해주세요...
그럼 제대로 될거 같네요...
^^ 항상 즐코하세요...