Сейчас попробуем вам показать, что можно сделать на Дельфи, используя всего лишь OpenDialog и Edit...Читайте внимательно приведенную ниже информацию, думаю для многих она будет ценной и интересной.

Итак, начнем...

Посмотрите пожалуйста, на написанный ниже код...

procedure TForm1.EditDblClick(Sender: TObject);
begin
if OpenDialog.Execute then (Sender as TEdit).Text := OpenDialog.FileName;
end;

Как вам? Вроде ничего нового? Вы разочарованы?

Мы нажимаем два раза всего по Edit и нам открывается OpenDialog. А давайте мы себе представим теперь, что на форме у нас, например, 10 Edit!!!

Чтобы вы тогда делали? Наверно догадатся совсем не сложно, написали бы данный код ещё девять раз А вот теперь предлагаем вам открыть Delphi и положить на саму форму 10 Edit'ттов, выделить всех  их, после чего перейти в Object Inspector -> Events -> DblClick и нажать всего два раза. После данной процедуры, их вставить
if OpenDialog.Execute then (Sender as TEdit).Text := OpenDialog.FileName;

...и запустить Дельфи. Теперь нажимая по всем Edit вы увидите, что каждый из них начинает открыватся с помощью всего 1 строчки!!!

Споснор поста: ищете как обезопасить свой дом или офис в большом городе от огня?  Пожарную безопасность в Санкт-Петербурге предоставляет Добровольное пожарное общество. На сайте компании вы всегда можете преобрести нужный вам пожарный инвентарь.