초보 wrote:

> EditBox에서 SelectAll할 때

> 그러니까

> 마우스로 EditBox에서 SelectAll할 때 or

> 키로(Ctrl+End or Ctrl + 방향키(->)) EditBox에서 SelectAll할 때

> SelectAll을 했는지 어떻케 할수 있나요?

/////////////////////////////////////////////////////////////////////////

한번에 처리하는 방법은 잘모르겠고요

아래처럼KeyUp과 MouseUp을 이용해보았습니다.

procedure TForm1.ListBox1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (ListBox1.SelCount = ListBox1.Items.Count)and(Shift=[ssShift]) then

showmessage('all');

end;



procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if (ListBox1.SelCount = ListBox1.Items.Count) then

showmessage('all');

end;