unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
procedure ListView1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ListView1Edited(Sender: TObject; Item: TListItem;
var S: String);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure SimulateKeystroke(VirtualKey: byte; ScanCode: DWORD);
begin
// keybd_event 함수를 사용한 키 조합(down, up) 발생
keybd_event(VirtualKey, // 키의 down
ScanCode,
0,
0);
keybd_event(VirtualKey, // 키의 up
ScanCode,
KEYEVENTF_KEYUP,
0);
end;
procedure SimulateKeyDown(Key : byte);
begin
// keybd_event 함수를 사용한 키 down 발생
keybd_event(Key, 0, 0, 0);
end;
procedure SimulateKeyUp(Key : byte);
begin
// keybd_event 함수를 사용한 키 up 발생
keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;
procedure TForm1.ListView1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F2 then
ListView1.Selected.EditCaption; // ListView 의 item을 edit mode 상태로 바꾼다
end;
procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
var S: String);
var
FindItem: TListItem;
begin
if Trim(S) = '' then // 사용자가 값을 입력안함
S := Item.Caption
else
begin
FindItem := ListView1.FindCaption(0, S, False, True, False);
if FindItem <> nil then // 중복검사
begin
MessageDlg('이미 존재하는 값입니다.',mtInformation,[mbOk],0);
S := Item.Caption;
SimulateKeystroke(VK_F2, 0); // F2 키를 발생시킨다
System.Exit;
end
else
begin
Item.Caption := S;
end;
end;
ListView1.SetFocus;
end;
end. |
|
