All pastes #29033 Raw Edit

Unnamed

public text v1 · immutable
#29033 ·published 2005-11-17 17:05 UTC
rendered paste body
procedure TFormMain.ListViewServersDblClick(Sender: TObject);
begin
  if ListViewServers.Selected.Caption <> '' then
  begin
    FormProperties.EditComputerName.Text := ListViewServers.Selected.Caption;
    FormProperties.EditIPAddress.Text := ListViewServers.Selected.SubItems.Strings[0];
    FormProperties.Show;
  end
end;