우선 소스를 보여드리죠..
procedure TForm1.ListView1DblClick(Sender: TObject);
begin
if ListView1.Selected <> nil then
MessageDlg(ListView1.Selected.SubItems.Text,mtInformation,[mbOK],0);
end;
-->이결과가 예를 들어 'MESSAGE'라고 나왓다고 칩시다.
그런데 아래가 문제죠...보시죠...
procedure TForm1.ListView1DblClick(Sender : TObject);
begin
if ListView1.Selected <> nil then
if ListView1.Seletected.SubItems.Text = 'MESSAGE' then
MessageDlg('성공',mtInformation,[mbOK],0);
end;
-->이렇게 했을
> 우선 소스를 보여드리죠..
> procedure TForm1.ListView1DblClick(Sender: TObject);
> begin
> if ListView1.Selected <> nil then
> MessageDlg(ListView1.Selected.SubItems.Text,mtInformation,[mbOK],0);
> end;
> -->이결과가 예를 들어 'MESSAGE'라고 나왓다고 칩시다.
>
> 그런데 아래가 문제죠...보시죠...
> procedure TForm1.ListView1DblClick(Sender : TObject);
> begin
> if ListView1.Selected <> nil then
> if ListView1.Seletected.SubItems.Text = 'MESSAGE' then
> MessageDlg('성공',mtInformation,[mbOK],0);
> end;
> -->이렇게 했을