Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 655

/ вопрос открыт /

Здравствуйте, эксперты!Мне в программе по клику мыши по пункту меню надо создавать кнопку на форме, притом каждый раз при следующем новую.Кроме того в каждой новой кнопке должны должны быть зашиты одни и те же обработчики событий,которые уже описаны.Подскажите как это сделать.

GAZ Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: GAZ (статус: Посетитель)
Вопрос отправлен: 4 июня 2008, 17:46
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: ANBsoft

Здравствуйте, GAZ!
Делается примерно так:
Var AButton:TButton;
Begin
AButton:=TButton.Create(Nil);
AButton.Parent:=Form1;
AButton.Top:=100;
AButton.Left:=100;
AButton.Height:=20;
AButton.Width:=100;
AButton.ShowHint:=False
AButton.OnClick:=MyButtonClick; //Обработчик нажатия
AButton.Tag:=0

Ответ отправил: ANBsoft (статус: Студент)
Время отправки: 4 июня 2008, 18:08


Мини-форум вопроса

Всего сообщений: 20; последнее сообщение — 4 июня 2008, 22:20; участников в обсуждении: 3.
GAZ

GAZ (статус: Посетитель), 4 июня 2008, 18:16 [#1]:

Как создавать одну кнопку я знаю,а как создавать всё новые и новые кнопки при каждом клике.
ANBsoft

ANBsoft (статус: Студент), 4 июня 2008, 18:51 [#2]:

Точно также, только менять Top и Left чтобы они в разных местах находились и назначать разный Tag чтобы потом в обработчике их различать.
GAZ

GAZ (статус: Посетитель), 4 июня 2008, 18:57 [#3]:

Var AButton:TButton;
BButton:TButton;
CButton:TButton;
..........

Я заранее не знаю сколько буду кнопок создавать.
Dron

Dron (статус: Студент), 4 июня 2008, 18:57 [#4]:

И ещё не забывать менять Name у кнопок...
С уважением.
GAZ

GAZ (статус: Посетитель), 4 июня 2008, 19:03 [#5]:

Вы пример можете привести,я так подозреваю тут типа динамического массива надо создавать.Вот только не соображу как.
Dron

Dron (статус: Студент), 4 июня 2008, 19:21 [#6]:

Если вы будете давать кнопкам имена по шаблону вроде MyButton1, MyButton2, MyButton3, то проблем быть не должно - просто в одной челочисленной переменной храните последний номер и всё. Если кнопки могут удаляться (уничтожаться), тогда массив чисел. Т.е. без массива кнопок вполне можно обойтись.
С уважением.
ANBsoft

ANBsoft (статус: Студент), 4 июня 2008, 19:22 [#7]:

просто кусок из своего проекта, где кнопки загружаются по заданным настройкам загружаемым в стринглист SL

Var AButton:Array[1..10000] of TSpeedButton;

for f:=0 to SL.Count-1 do begin
if Copy(SL[f],1,12)='FormMainSize' then begin
Left:=ValIntANB(Copy(SL[f],14,6));
Top:=ValIntANB(Copy(SL[f],20,6));
Width:=ValIntANB(Copy(SL[f],26,6));
Height:=ValIntANB(Copy(SL[f],32,6));
if ValIntANB(Copy(SL[f],38,1))=1 then WindowState:=wsMaximized
else WindowState:=wsNormal;
end;
if Copy(SL[f],1,12)='FormMainIcon' then begin
LW:=ValIntANB(Copy(SL[f],14,3));
LH:=ValIntANB(Copy(SL[f],18,3));
s:=Copy(SL[f],22,6);
if TMenuItem(FormMain.FindComponent('N'+s)).Visible then begin
AIcon[n]:=s;
AButton[n]:=TSpeedButton.Create(Nil);
AButton[n].Parent:=FormMain;
AButton[n].Top:=LH*MainStepGrid-MainStepGrid+MainTop;
AButton[n].Left:=LW*MainStepGrid-MainStepGrid+MainLeft;
AButton[n].Height:=MainIcon;
AButton[n].Width:=MainIcon;
AButton[n].ShowHint:=True;
AButton[n].Glyph.LoadFromResourceName(HInstance,'N'+s);
s:=TMenuItem(FormMain.FindComponent('N'+s)).Caption;
while Pos('&',s)>0 do Delete(s,Pos('&',s),1);
AButton[n].Hint:=s;
AButton[n].OnClick:=SpeedButtonClick;
AButton[n].Tag:=n;
Inc(n);
end;
end;
end;
GAZ

GAZ (статус: Посетитель), 4 июня 2008, 19:45 [#8]:

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var AButton:Array[1..10000] of TSpeedButton;
n:integer;
begin
AButton[n]:=TSpeedButton.Create(Nil);
AButton[n].Parent:=Form1;
AButton[n].Top:=100;
AButton[n].Left:=100;
AButton[n].Height:=20;
AButton[n].Width:=40;
AButton[n].OnClick:=SpeedButton1Click;
AButton[n].Tag:=n;
Inc(n);
end;

не могу понять при выполнении вылетает какая та ошибка
ANBsoft

ANBsoft (статус: Студент), 4 июня 2008, 19:50 [#9]:

Какая ошибка и в какой строке?
Скорее всего в начале добавить
n:=1;
ANBsoft

ANBsoft (статус: Студент), 4 июня 2008, 19:54 [#10]:

Приведенный выше кусок выдран из большей процедуры чтобы показать, а инициализация переменных была в начале не попала в иллюстрацию.
GAZ

GAZ (статус: Посетитель), 4 июня 2008, 20:47 [#11]:

Dron
а не могли бы вы показать как создавать по шаблону MyButton1, MyButton2, MyButton3 а то с массивом возникают кое какие проблемы
GAZ

GAZ (статус: Посетитель), 4 июня 2008, 20:54 [#12]:

Dron
особенно меня интересует как тогда описывать переменную MyButton
не так же
var MyButton1, MyButton2, MyButton3.......
Dron

Dron (статус: Студент), 4 июня 2008, 21:04 [#13]:

Вы для каждой кнопки отдельную переменную заводите? При таком подходе, конечно, без массива не обойтись. Используйте одну переменную: при создании заполняйте свойство Name по шаблону. А затем, чтобы найти нужную кнопку:
(Form1.FindComponent('MyButton3') as TButton).Caption:='Button 3';
С уважением.
GAZ

GAZ (статус: Посетитель), 4 июня 2008, 21:19 [#14]:

Dron
Напишите пожалуйста всю процедуру создания,не допанимаю я
...просто в одной челочисленной переменной храните последний номер и всё. Если кнопки могут удаляться (уничтожаться), тогда массив чисел...

procedure TForm1.SpeedButton1Click(Sender: TObject);
ANBsoft

ANBsoft (статус: Студент), 4 июня 2008, 21:31 [#15]:

Логика примерно такая:
Var N:Integer; //число созданных кнопок
B:TButton;
Begin
N:=1;
B:=TButton.Create(Nil);
B.Name:='MyButton'+IntToStr(N);
.....Далее также как при работе с массивом.
Обращение к нужной кнопке:
(Form1.FindComponent('MyButton'+IntToStr(N)) as TButton).
Проблема в том, что если какие-либо из ранее созданных кнопок удалить, то неизвестно существует ли кнопка с заданным именем, если нет, то FindComponent выдаст ошибку.
В таком случае нужно или хранить массив кнопок или создавать связанный список.
А какие проблемы с массивом?
Dron

Dron (статус: Студент), 4 июня 2008, 21:36 [#16]:

var
  Form1: TForm1;
 
  Btn: TButton;
  BtnCount: Integer = 0;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(BtnCount);
  Btn:=TButton.Create(Self);
  Btn.Parent:=Self;
  Btn.Top:=Random(Self.ClientHeight);
  Btn.Left:=Random(Self.ClientWidth);
  Btn.Width:=75;
  Btn.Height:=22;
  Btn.Name:='MyButton'+IntToStr(BtnCount);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  (Self.FindComponent('MyButton'+Edit1.Text) as TButton).Caption:='New caption';
end;
При нажатии на Button1 создаётся ещё одна кнопка. Далее в Edit1 вводится номер кнопки и при нажатии на Button2 текст на этой кнопке меняется.
С уважением.
GAZ

GAZ (статус: Посетитель), 4 июня 2008, 21:43 [#17]:

После создания кнопки её я перетаскиваю в нужное мне место
....
AButton[n].OnMouseDown:=Button1MouseDown;
....
следующей процедурой

procedure TForm1.Button1MouseDown(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
{$IFNDEF WIN32}
var
pt: TPoint;
{$ENDIF}
begin
if ssCtrl in Shift then
begin
ReleaseCapture;
SendMessage(Button1.Handle, WM_SYSCOMMAND, 61458, 0);
{$IFNDEF WIN32}
GetCursorPos(pt);
SendMessage(Button1.Handle,
WM_LBUTTONUP,
MK_CONTROL,
Longint(pt));
{$ENDIF}
end;
end;

так вот если описать Var AButton:Array[1..10000] of TButton; то возникает ошибка
Dron

Dron (статус: Студент), 4 июня 2008, 22:04 [#18]:

А вы заранее знаете, что у вас будет 10к кнопок?
С уважением.
GAZ

GAZ (статус: Посетитель), 4 июня 2008, 22:14 [#19]:

Dron спасибо я добился того чего хотел.
Dron

Dron (статус: Студент), 4 июня 2008, 22:20 [#20]:

Хорошо. Удачи! :-)
P.S. Не забивайте память 10 тысячами пустых указателей.
С уважением.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 18 октября 2017, 06:58
Выполнено за 0.06 сек.
Рейтинг@Mail.ru