본문 바로가기

전체 글

 (86)
[일반/컴포넌트] ListBox 드래그하여 아이템 이동하기 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer); procedure ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure ListB..
[일반/컴포넌트] ListBox에 Edit 올려 항목 편집하기 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure ListBox1Click(Sender: TObject); procedure ListBox1KeyPress(Sender: TObject; var Key: Char); procedure ListBox1Exit(Sender: TObject); private { Private declarations } ListEdit : TEdi..
[시스템] 사용중인 USB 포트의 장치정보 구하기 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; const FILE_DEVICE_UNKNOWN = $00000022; FILE_DEVICE_USB = FILE_DEVICE_UNKNOWN; USB_IOCTL_INTERNAL_INDEX = $00..

티스토리툴바