Как програмно нажать на кнопочку?

← →
Bolt (2006-12-16 10:53) [0]

Скажите пожалста, если кто знает.
Я программно описал форму и кнопку на ней. Теперь незнаю как при нажатии на кнопку (которую создал программно) выполнить какоенибудь действие, например вывести сообщение....
Спасибо!

← →
Savek (2006-12-16 11:15) [1]

После создания кнопки надо присвоить ей обработчик
private procedure MyClick(sender : TObject); ... ... Button1:=TButton.Create(Self); ... Button1.OnClick:=MyClick;
А в процедуре MyClick описываешь желаемое действие

← →
>>DEATH<< (2006-12-16 11:16) [2]

нажми два раза на кнопку и пиши то что должно произойти

← →
>>DEATH<< (2006-12-16 11:16) [3]

Удалено модератором

← →
Bolt (2006-12-17 18:29) [4]

А как реализовать в DLL?
Я пишу так

function ShowMyMessage(Caption:PChar;Msg:PChar):Boolean;StdCall; var MessageForm : TForm; BtnYes,BtnNo:TRxSpeedButton; MsgLabel:TLabel; procedure BtnNoClick(Sender: TObject); begin MessageForm.Close;//Процедура которая будет выполняться при нажатии на кнопку "НЕТ" end; begin MessageForm:=TForm.Create(Application); MsgLabel:=TLabel.Create(MessageForm); MsgLabel.Parent:=MessageForm; MsgLabel.Top:=FormPic.Top+Round(FormPic.Height/2);MsgLabel.Left:=FormPic.Left+FormPic.Width+Otstup; MsgLabel.Caption:=StrPas(Msg); MessageForm.Caption:=StrPas(Caption); MessageForm.Position:=poScreenCenter; ... BtnNo:=TRxSpeedButton.Create(MessageForm); BtnNo.Parent:=MessageForm; BtnNo.OnClick:=BtnNoClick;// Присваиваю ПРОЦЕДУРЫ события ONCLICK кнопки (ВЫДАЕТ ОШИБКУ) BtnNo.Flat:=True;BtnNo.Transparent:=True; BtnNo.Width:=105;BtnNo.Height:=33; BtnNo.Width:=105;BtnNo.Height:=33; ... MessageForm.ShowModal; end;
Но НЕ РАБОТАЕТ, что то не так да?

← →
ProgRAMmer Dimonych © (2006-12-17 21:04) [5]

Боюсь даже спрашивать, зачем нужно такое извращение (в смысле через DLL)...

← →
Bolt (2006-12-17 21:09) [6]

Ну как сказать! Дело в том что, я пишу программу, и думаю что пользоваться стандартным Message-м не очень красиво, хочу что бы Message был такова же стиля как и форма, с Rx-выми кнопочками и так далее...
А по этому к проге вешаю свою DLL в которой размещаю все необходимые функции, процедуры, ресурсы и системный формы

← →
VadimSpb (2006-12-17 23:14) [7]

> А по этому к проге вешаю свою DLL в которой размещаю все
> необходимые функции, процедуры, ресурсы и системный формы

ИЗВРАЩЕНИЕ.

← →
Bolt (2006-12-17 23:22) [8]

Спасибо за ваше мнениние...
Вот например ситуация....Программа разработанна в СТИЛЬНОМ интерфейсе, если пользоваться стандартными Messaga-ми вся красота теряеться. Далее, в зависимости от dll меняеться интерфейс, или скинн...Далее, легко урезать функции программы, заменив dll, или наделить....Будете переписывать вечно exe-к? Вывод, ИЗВРАЩЕНИЕ - все выше высказавшиеся фразой ИЗВРАЩЕНИЕ

> Bolt (17.12.06 23:22) [8]

Поиском по форуму пройдись на предмет "Форма в DLL". Моментально возникнет желание перериовать проект хотя бы на com/ole.

> MessageForm:=TForm.Create(Application);

А Application откуда в эту функцию попадает?

← →
VadimSpb (2006-12-17 23:42) [10]

> Программа разработанна в СТИЛЬНОМ интерфейсе, если пользоваться
> стандартными Messaga-ми вся красота теряеться.

Супер ИЗВРАЩЕНИЕ. Что мешает сделать свои мессаги и все что надо??? Следует из отсутствия знаний и опыта. Как насчет отладки dll? ;-))

> Будете переписывать вечно exe-к?

И не надо ничего переписывать :-))))

> Вывод, ИЗВРАЩЕНИЕ - все выше высказавшиеся фразой ИЗВРАЩЕНИЕ

Удачи в ИЗВРАЩЕНИЯХ ;-))))))

Как програмно нажать на кнопочку? Найти похожие ветки