ComboBox2.Items.Text:=Memo3.Lines.Text;
procedure TForm1.ComboBox2Change(Sender: TObject);
var
s: string;
i: word;
begin
s:= combobox2.Text; // Копируем выделеный текст
for i:= 0 to (memo3.Lines.Count - 1) do
if s = memo3.Lines.Strings[i] then // Ищем совпадение строки в мемо и скопированного текста
begin
memo3.SelStart:= memo3.Perform(EM_LINEINDEX, i, 0); // Устанавливваем начало выделения найденой строки
memo3.SelLength:= Length(memo3.Lines[i]); // Выделяем всю строку
memo3.SetFocus; // Фокус на мемо
end;
end;
s:= combobox2.Text; // Копируем выделеный текст
s:= combobox2.Items.Strings[combobox2.Itemindex];
uses ClipBrd;
procedure TForm1.ComboBox2Change(Sender: TObject);
var
s: string;
i: word;
begin
...
{ClipBoard.Create;}
ClipBoard.Open;
ClipBoard.AsText:= combobox2.Items.Strings[combobox2.Itemindex];
ClipBoard.Close;
...
end;
uses Clipbrd;
...................
Clipboard.Open;
Clipboard.AsText:=Combobox2.Items[ComboBox2.ItemIndex];
Clipboard.Close;
......................
procedure TForm1.ComboBox2Click(Sender: TObject);
begin
ClipBoard.Open;
ClipBoard.AsText:= combobox2.Items.Strings[combobox2.Itemindex];
ClipBoard.Close;
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
var
s: string;
i: word;
begin
s:= combobox2.Text;
for i:= 0 to (memo3.Lines.Count - 1) do
if s = memo3.Lines.Strings[i] then
begin
memo3.SelStart:= memo3.Perform(EM_LINEINDEX, i, 0);
memo3.SelLength:= Length(memo3.Lines[i]);
memo3.SetFocus;
end;
end;
procedure TForm1.ComboBox2Click(Sender: TObject);
begin
ClipBoard.Open;
ClipBoard.AsText:= combobox2.Items.Strings[combobox2.Itemindex];
ClipBoard.Close;
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
var
s: string;
i: word;
begin
s:= combobox2.Text; // Копируем выделеный текст
ClipBoard.Open;
ClipBoard.AsText:= combobox2.Items.Strings[combobox2.Itemindex];
ClipBoard.Close;
for i:= 0 to (memo3.Lines.Count - 1) do
if s = memo3.Lines.Strings[i] then // Ищем совпадение строки в мемо и скопированного текста
begin
memo3.SelStart:= memo3.Perform(EM_LINEINDEX, i, 0); // Устанавливваем начало выделения найденой строки
memo3.SelLength:= Length(memo3.Lines[i]); // Выделяем всю строку
memo3.SetFocus; // Фокус на мемо
end;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.