젠틀캣의 블로그이야기

grid.SelectRows(1,1); //grid.OnClick(Self); GridClick(sender);

if not(Key in ['0'..'9']) then begin Key := #0; end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var CurWebrowser: IWebBrowser; TopWebBrowser: IWebBrowser; Document: OleVariant; WindowName: string; begin CurWebrowser := pDisp as IWebBrowser; TopWebBrowser := (Sender as TWebBrowser).DefaultInterface; if CurWebrowser = TopWebBrowser then ShowMessage('Complete document was loaded') else ..

http://www.swissdelphicenter.ch/torry/showcode.php?id=1055 Problem: Web forms that have multiline text boxes and/or Submit buttons do not respond to the Enter key when displayed on a TWebbrowser. Also when browsing local folders, some keys don't respond. How to solve it: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCt..

AdvStringGrid.FontColors[0, 0] := clRed; AdvStringGrid.Colors[0, 0] := clRed;

procedure TformNyListAdmin.GridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift = [ssCtrl]) and (Key = Ord('C')) then grid.CopySelectionToClipboard; end;

ide 환경을 Help메뉴 옆에있는 classic undocked 로 변경 [tool]-[option]-[vcl designer] 에서 embedded designer 체크 해제 결국은 ide 작업환경이 유닛작성 화면 과 vcl폼이 붙어 있어서 나는 현상임 이것때문에 3일간의 재 설치와 삽질

좀 쉬자!! 응?

나의 경우 클라이언트와 미팅할때 노트북은 항상 켜놓지만 켜놓는 용도는 DP용이지 메모를 입력해놓거나 하는 내용은 아니다. 미팅을 끝마치고 들어와서 다시 워드나 원노트 같은 프로그램을 띄워서 다시 정리를 하게 되는데 이게 계속 누적되다 보면 꽤 번거롭다는걸 느낄수 있다. 나같은 사람한테 아주 필요한 상품인듯 하는데, 아직 제품이 다양하지 않은듯.. 사용시에 꼭 노트북이 켜 있지 않아도 되고, usb로 연결시에 저장을 따로 할수 있다고 하니 그런데로 편리할것 같다는 생각이 든다.