Форум: "Начинающим";
Текущий архив: 2011.03.13;
Скачать: [xml.tar.bz2];
ВнизВызов процедуры. Найти похожие ветки
← →
JohnKorsh (2010-12-20 13:43) [0]Извините за простоту вопроса, как грамотно вызвать процедуру нажатия кнопки при нажатии другой кнопки? (Одна кнока должна выполнять функции группы кнопок), т.е.
Что писать в параметре при вызове этой процедуры?
( procedure TMain_Form.B_D2_TClick(Sender: TObject);)
← →
Плохиш © (2010-12-20 13:45) [1]<Button>.Click;
← →
Ega23 © (2010-12-20 13:48) [2]1. Если точно отвечать на вопрос, то
B_D2_TClick(Sender)
Если в данном методе Sender никак не используется, то указать nil
2. Если делать по уму, то заводится отдельный метод, в обработчике клика кнопки ставится его вызов. Соответственно, из обработчика другой кнопки тоже вызываешь этот метод.
← →
JohnKorsh (2010-12-20 13:50) [3]Спасибо. Я отдельными процедурами и сделал, думал проще можно.
← →
Ega23 © (2010-12-20 14:02) [4]Простой пример
Новый проект, главная форма. Код такой:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure OnButtonClick(Sender: TObject);
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.FormCreate(Sender: TObject);
var
i, aTop: Integer;
begin
aTop := 10;
for i := 1 to 5 do
begin
with TButton.Create(Self) do
begin
SetBounds(10, aTop, 90, 25);
Parent := Self;
OnClick := OnButtonClick;
Caption := "Button " + IntToStr(i);
end;
aTop := aTop + 25 + 10;
end;
end;
procedure TForm3.OnButtonClick(Sender: TObject);
begin
if (Sender is TButton) then
ShowMessage("Нажата кнопка " + TButton(Sender).Caption)
else
ShowMessage("Неизвестный Sender");
end;
end.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.03.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c