Кнопки на форме

[forzi]

Здравствуйте.
Такая ситуация: на form1 расположены несколько кнопок. Нужно чтобы при нажатии на каждую из них запускалась form2(на которой расположен memo1), но с разной информацией в memo1. Возможно это сделать или нет?

[Airou]

Ставишь обработчик onclick на каждую кнопку в нем пишешь
Form2.Show (или ShowModal, если надо)

На форме 2 ставишь мемо
Потом отслеживаешь какая копка была нажата и соответственно с этим загружаешь в мемо текст (Memo1.Lines.LoadFromFile(C:/123.txt) например)

[Stilet]

Ставишь обработчик onclick на каждую кнопку в нем пишешь

Уточню: Обработчик для кнопок должен быть один. Sender в нем покажет какая кнопка нажата, в зависимости от этого втюхивай во второю форму что нужно.

[forzi]

Спасибо большое =)

[maLoy*508]

Сообщение от Stilet

Уточню: Обработчик для кнопок должен быть один. Sender в нем покажет какая кнопка нажата, в зависимости от этого втюхивай во второю форму что нужно.

А можно для пожалуйста поподробнее с этого места:
"Sender в нем покажет какая кнопка нажата, в зависимости от этого втюхивай во второю форму что нужно."
как это делается?

[Airou]

При нажатии на Button1, Sender:=Button1. Соттветственно если вы нажмете на любую оставшуюся кнопку в сендер уйдет та кнопка.
Вот отрывок из моей программы.

type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    ...
    procedure TLabelOnMouseEnter(Sender: TObject);

procedure TForm2.TLabelOnMouseEnter(Sender: TObject);
begin
  TLabel(Sender).Font.Color:=clWhite;
end;

Или так можно - создаете условие например (причем такой синтаксис наверное правильней...хз)

If (Sender as TButton).Name='Button1' then 
begin
...
end;