Делимся идеями (простыми, но до которых все-равно нужно додуматься)

[Jora_Kornev]

Узнать что находится в Edit.Text при клике на него.

В окне обработки событий Edit(ов) выставляем в поле OnClick нажатие на скрытую кнопку, далее самое вкусное - код

procedure TForm5.Button2Click(Sender: TObject);
var
 s:string;
begin
 s:=(Sender as TEdit).Text;
 ShowMessage(s);
end;

[Granus]

веселая тема))
идея ++

вот недавно придумал)

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ListBox1.ItemIndex:=Y div ListBox1.ItemHeight;
end;

при выборе чего-то из листбокса подсвечивается строка под курсором)))
ляпота

[Terran]

Узнать что находится в Edit.Text при клике на него.

Можно написать такой кодеГ:

Procedure TForm1.Edit1Click(Sender: TObject);
Begin
ShowMessage(Edit1.Text);
End;

Или твкой:

Procedure TForm1.Edit1Click(Sender: TObject);
Begin
Label1.Caption:=Edit1.Text;
End;

В одщем таких вариантов очень много.

[Квэнди]

бред.
закрыто.