소심한 개구쟁이의 일상

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} // 실제 글자수를 조사하는데 Length() 함수는 사..

카테고리 없음 2023. 9. 8. 09:04

// Edit1, Memo1 는 그냥 올려놓은 것임 // window 가 inactive 이지만 Edit1, Memo1 에 입력은됨 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Memo1: TMemo; private { Private declarations } procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE; public { Public declarations } end; var Form1: TForm1; i..

카테고리 없음 2023. 9. 8. 09:02

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; procedure FormActivate(Sender: TObject); procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState); procedure StringGrid1DblClick(Sender: TObject); private { Private declarations } public { Pub..

카테고리 없음 2023. 9. 7. 08:28

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Printers, WinSpool; type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure GetBinnames( sl: TStrings ); type TBi..

카테고리 없음 2023. 9. 7. 08:26