없는 것만

procedure Form1.AllKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case key of vk_return: perform(wm_NextDlgCtl,0,0); //TAB기능 end; end; 작업 후 KeyPress에 넣어주기 TabOrder에 따라서 움직여서 Edit - TabOrder 에서 수정필요

Procecure TForm1.SelectAllControl(Sender : TObject) if ActiveControl is TEdit then TEdit(ActiveControl).SelectAll; TEdit 다 선택 후 onclick 이벤트에 넣기 is는 비교 as는 변환 정도.. Sender와 ActiveControl은 여기서는 같은듯 아래 두개도 같은듯 (Sender as TEdit).SelectAll; TEdit(Sender).SelectAll; 조금더 정보가 필요 전체폼에서 한번에 컨트롤할수 있는것도 필요 출처: https://pitroom.tistory.com/3 [Room:티스토리]

문제점 : Form에서 Showmodal로 화면을 열었을시 Statusbar 컨트롤이 안됨 상단 선언 const MY_MESSAGE = WM_USER + 101; 타폼에서 사용시 동일하게 적어주면 됨 자기 자신 호출(Formshow에서) 마지막은 integer로 PostMessage(Handle, MY_MESSAGE, 0, 1); procedure MessageReceiver(var msg: TMessage); message MY_MESSAGE; procedure Form1.MessageReceiver(var msg: TMessage); var itest : integer; begin itest := msg.lParam; end; itest ->> 1 출처: https://pitroom.tistory.c..

TObject.Free 동적으로 생성한 오브젝트를 Free하면, 해당 객체에 할당되어 있던 메모리 공간을 OS로 돌려주게 된다. 그러나 오브젝트 변수가 가리키고 있던 포인터 값에는 여전히 기존 메모리의 주소가 존재하므로Nil을 할당하여야 포인터 값을 초기화 시킬 수 있다. 만약 Free한 오브젝트를 다시 사용하기 위해서는 Nil을 꼭 할당한 후, 다시 Create를 해야 한다. Object := TObject.Create; Object.Free; Object := Nil; TObject.FreeAndNil 동적으로 생성한 객체에 할당되어 있던 메모리 공간을 OS로 돌려주는 동시에 객체의 변수가 가리키고 있던 포인터의 값까지 초기화 해준다. Object := TObject.Create; FreeAndNil..

폼 Close 이벤트에 Action := Cafree의 의미는 폼을 Free시킨다

-- 숫자만 입력 procedure TForm1 . FormCreate ( Sender : TObject ); begin SetWindowLong ( Edit1 . Handle , GWL_STYLE , GetWindowLong ( Edit1 . Handle , GWL_STYLE ) or ES_NUMBER ); end; ES_AUTOHSCROLL 에디트 컨트롤 내에 텍스트를 입력할 때 에디트 영역의 크기를 넘기면 자동으로 수평 스크롤된다. ES_AUTOVSCROLL 여러 줄의 에디트 컨트롤 내에 텍스트를 입력할 때 자동으로 수직스크롤된다. ES_CENTER 여러 줄의 에디트 컨트롤에서 텍스트를 가운데로 정령한다. ES_LEFT 텍스트를 좌측으로 정렬한다. ES_LOWERCASE 에디트 컨트롤에 소문자의 입..