Форум: "Основная";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];
ВнизСамодельный Button, событие Click Найти похожие ветки
← →
Pavelkq (2005-10-11 13:41) [0]Здравствуйте! Создаю в программе форму (
create, show
. Затем создаю на этой форме кнопкуHelpBut:=TButton.Create(HelpFrm);
with HelpBut do
begin
parent:=HelpFrm;
Width:=120;
Height:=20;
Left:=150;
Top:=340;
Caption:=("Название");
end;
Что надо написать, чтобы можно было сделать подпрограмму обработки событияonClick
?
← →
Ega23 © (2005-10-11 13:49) [1]onClick:=MyButtonClickHandler;
← →
Ega23 © (2005-10-11 13:51) [2]Ну и метод формы
procedure MyButtonClickHandler(Sender:TObject);
procedure TForm1.MyButtonClickHandler(Sender:TObject);
begin
ShowMessage("Button clicked!!!");
end;
← →
Pavelkq (2005-10-11 14:32) [3]Отлично! Работает, т.е. сообщение успешно выскакивает. Но теперь из обработчика не могу достучаться до динамически созданной формы. На динамической форме есть динамически созданный
TRichEdit
и я бы хотел его очистить по нажатию кнопки. Форма создана:HelpFrm:=TForm.CreateNew(Application);
аTRichEdit
:HelpRich:=TRichEdit.Create(HelpFrm);
← →
Desdechado © (2005-10-11 14:43) [4]у тебя есть Sender, у которого есть Parent
намек ясен?
← →
Ega23 © (2005-10-11 14:47) [5]Вот, посмотри пример:
function ShowTexLogFile(const aFileName:String):Boolean;
procedure BtnClearClick(Sender:TObject);
var
i:Integer;
_memo:TMemo;
begin
if (Sender is TForm) then
begin
With TForm(Sender) do
begin
for i:=0 to ComponentCount-1 do
if (Components[i] is TMemo) then
if UpperCase(TMemo(Components[i]).Name)=UpperCase("memSQLLogMonitor") then
begin
_memo:=TMemo(Components[i]);
_memo.Lines.Clear;
_memo.Lines.Add(" ");
_memo.Lines.SaveToFile(_memo.Hint);
Break;
end;
end;//With TForm(Sender) do
end;//if (Sender is TForm) then
end;//procedure BtnClearClick(
var
aForm:TForm;
aPanel:TPanel;
OnClearClick:TMethod;
List:TStringList;
i:Integer;
begin
Result:=False;
//if not FileExists(aFileName) then Exit;
try
Application.CreateForm(TForm, aForm);
try
With aForm do
begin
Caption:=aFileName;
BorderStyle:=bsSingle;
Height:=500;
Width:=750;
Position:=poScreenCenter;
end;
With TMemo.Create(aForm) do
begin
Parent:=aForm;
Name:="memSQLLogMonitor";
Align:=alClient;
ScrollBars:=ssBoth;
//Height:=440;
Clear;
Hint:=aFileName;
List:=TStringList.Create;
if FileExists(aFileName) then
begin
List.LoadFromFile(aFileName);
for i:=List.Count-1 downto 0 do Lines.Add(List.Strings[i]);
end;
List.Free;
end;
aPanel:=TPanel.Create(aForm);
With aPanel do
begin
Parent:=aForm;
Height:=45;
Align:=alBottom;
end;
With TButton.Create(aPanel) do
begin
Parent:=aPanel;
Cancel:=True;
Height:=25;
Width:=100;
Font.Size:=10;
Top:=10; //aPanel.ClientHeight-10;
Left:=aPanel.Width-110;
Anchors:=[akTop, akRight];
Caption:="Закрыть";
ModalResult:=mrOK;
end;
With TButton.Create(aPanel) do
begin
Parent:=aPanel;
Height:=25;
Width:=100;
Font.Size:=10;
Top:=10; //aPanel.ClientHeight-30;
Left:=aPanel.Width-220;
Anchors:=[akTop, akRight];
Caption:="Очистить";
OnClearClick.Code:=@BtnClearClick;
OnClearClick.Data:=aForm;
OnClick:=TNotifyEvent(OnClearClick);
end;
aForm.ShowModal;
finally
aForm.Free;
end;
except on E:Exception do
raise Exception.Create("ShowTexLogFile "+E.Message);
end;
end;
Здесь всё в динамике создаётся.
← →
Pavelkq (2005-10-11 14:51) [6]Sender, по моему представлению, будет или сама HelpBut (кнопка) или HelpFrm (динамическая форма). У кнопки родитель форма. Ясно, что ричэдит тоже имеет родителем эту форму. По логике надо писать что-то типа:
procedure TForm1.MyButtonClickHandler(Sender:TObject);
begin
Sender.HelpRich.Lines.Clear;
end;
Но в таком виде это почему-то не работает, поскольку данная процедура ничего не знает об объекте ричэдит.
← →
Ega23 © (2005-10-11 14:54) [7]
> Но в таком виде это почему-то не работает, поскольку данная
> процедура ничего не знает об объекте ричэдит.
Задавай ему Name и потом по нему обращайся.
← →
jack128 © (2005-10-11 15:03) [8]Ega23 © (11.10.05 14:47) [5]
procedure BtnClearClick(Sender:TObject);
Ega23 © (11.10.05 14:47) [5]With TButton.Create(aPanel) do
begin
OnClearClick.Code:=@BtnClearClick;
OnClearClick.Data:=aForm;
OnClick:=TNotifyEvent(OnClearClick);
А это работает?? я к тому, что вроде процедура должна быть объявлена как procedure BtnClearClick(Self, Sender: TObject); // это же процедура, а не метод, значит Self нужно явно указывать
← →
umbra © (2005-10-11 15:03) [9]
> Sender.HelpRich.Lines.Clear;(Sender as THelpFrm).HelpRich.Lines.Clear;
THelpFrm - тип Вашей формы
← →
umbra © (2005-10-11 15:05) [10]
> (Sender as THelpFrm).HelpRich.Lines.Clear;
Пардон. Точнее
(Sender.Parent as THelpFrm).HelpRich.Lines.Clear;
← →
Pavelkq (2005-10-11 15:14) [11]Спасибо, конечно, но можно сказать для непродвинутых, куда это писать?
Если прямо в обработчик, то пишет, что Parent неизвестный идентификатор.
Ega23, если задать имя, то в обработчике это имя все равно не опознается.
Может начать с того, куда писать код обработчика? Я написал сразу послеimplementation
. Пробовал и внутри процедуры динамического создания объектов, то тогда не проходитonClick:=MyButtonClickHandler;
Так же совершенно не идет кодonClick.code:=MyButtonClickHandler;
← →
Amoeba © (2005-10-11 15:25) [12]Читай вот эту статью:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342
← →
umbra © (2005-10-11 15:28) [13]
> для непродвинутых
да я сам продвинутый не очень. два поста - две ошибки.
на cамом деле в обработчике нажатия кнопки надо написать
procedure THelpFrm.MyButtonClickHandler(Sender:TObject);
begin
Self.HelpRich.Lines.Clear;
end;
Здесь Self - объект, в котором вызывается метод, то есть сама форма.
← →
Pavelkq (2005-10-11 15:54) [14]Не понпмает он что такое HelpRich.
Короче, вот весь код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure MyButtonClickHandler(Sender:TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MyButtonClickHandler(Sender:TObject);
begin
ShowMessage("Button clicked!!!");
Self.HelpRich.Lines.Clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
{Procedure MyButtonClickHandler(Sender:TObject);
begin
ShowMessage("Button clicked!!!");
end;}
var HelpFrm:TForm;
HelpRich: TRichEdit;
HelpBut: TButton;
HelpSet: byte;
begin
HelpSet:=1;
HelpFrm:=TForm.CreateNew(Application);
with HelpFrm do
begin
Width:=450;
Height:=410;
Caption:="Î ïðîãðàììå";
Position:=poDesktopCenter;
BorderIcons:=HelpFrm.BorderIcons-[biMinimize];
BorderIcons:=HelpFrm.BorderIcons-[biMaximize];
BorderIcons:=HelpFrm.BorderIcons-[biHelp];
end;
HelpRich:=TRichEdit.Create(HelpFrm);
with HelpRich do
begin
parent:=HelpFrm;
Width:=445;
Height:=400;
Align:=alCustom;
Color:=clInfoBk;
Enabled:=true;
TabOrder:=1;
ScrollBars:=ssVertical;
ReadOnly:=true;
Color:=clRed;
Color:=clInfoBk;
BorderWidth:=14;
Font.Name:="Times New Roman";
Font.Size:=11;
if HelpSet=1 then
begin
SelAttributes.Height:=SelAttributes.Height+5;
SelAttributes.Style:=[fsBold];
Lines.Add(" Ïðîãðàììà "Ôîðìèðîâàíèå áàçû".");
SelAttributes.Style:=[];
Lines.Add("");
Lines.Add(" Ï.À.");
end;
end;
if HelpSet=1 then
begin
HelpBut:=TButton.Create(HelpFrm);
with HelpBut do
begin
parent:=HelpFrm;
Width:=120;
Height:=20;
Left:=150;
Top:=340;
Caption:=("Êàê ïîëüçîâàòüñÿ");
onClick:=MyButtonClickHandler;
end;
end;
HelpFrm.Show;
end;
end.
← →
Ega23 © (2005-10-11 15:55) [15]
> А это работает?? я к тому, что вроде процедура должна быть
> объявлена как procedure BtnClearClick(Self, Sender: TObject);
>
OnClearClick:TMethod;
?
← →
Ega23 © (2005-10-11 15:59) [16]
> procedure TForm1.Button1Click(Sender: TObject);
> {Procedure MyButtonClickHandler(Sender:TObject);
> begin
> ShowMessage("Button clicked!!!");
> end;}
> var HelpFrm:TForm;
У тебя не TForm, а TForm1.
Конечно, TForm1 является наследником TForm, но при обращении к TForm1 как к TForm ты не узнаешь ничего о, например, Button1.
← →
jack128 © (2005-10-11 17:19) [17]Ega23 © (11.10.05 15:55) [15]
OnClearClick:TMethod;
И ??
вообще то процедура должна была быть объявлена так:
procedure BtnClearClick(Self {в этот параметр передается то что ты записал в OnClearClick.Data, то есть форма}, Sender{а вот сюда передется тот контрол, которому собствено кликнули мышой - кнопка}: TObject);
А работает это у тя только потому, что оба этих параметра передаются через регистры проца. Вот если бы событие использовало модель вызова stdcall(передача параметров через стек) или напрмер событие принемало бы больше 3 параметров, то ты бы схватил AV.
← →
Ega23 © (2005-10-11 17:57) [18]
> А работает это у тя только потому, что оба этих параметра
> передаются через регистры проца. Вот если бы событие использовало
> модель вызова stdcall(передача параметров через стек) или
> напрмер событие принемало бы больше 3 параметров, то ты
> бы схватил AV.
Спасибо, учту.
← →
umbra © (2005-10-11 18:27) [19]
> Не понпмает он что такое HelpRich.
да и не поймет. в коде после выхода из Button1Click нигде не сохраняются указатели на созданные объекты. А поскольку у них нет имен, то и найти их невозможно. Если чуть чуть Ваш код поправить, то будет работать
procedure TForm1.Button1Click(Sender: TObject);
{........................................}
with HelpRich do
begin
{...........................}
name := "hr"; //ВОТ ДОПОЛНЕНИЕ!!!!!
{....................................}
end;
procedure TForm1.MyButtonClickHandler(Sender:TObject);
var
par: TWinControl;
cont: TComponent;
begin
ShowMessage("Button clicked!!!");
par := (Sender as TControl).Parent;
cont := par.FindComponent("hr");
if Assigned(cont) then
(cont as TRichEdit).Lines.Clear;
end;
← →
Ega23 © (2005-10-11 18:33) [20]2 umbra © (11.10.05 18:27) [19]
par := (Sender as TControl).Parent;
cont := par.FindComponent("hr");
if Assigned(cont) then
(cont as TRichEdit).Lines.Clear;
А теперь прикинь: форма, на ней панель с Align:=alBottom, на панели искомая кнопка. А RichEdit лежит на самой форме с обтеканием Align:=alClient.
Вопрос: чему будет равен cont?
← →
umbra © (2005-10-11 18:39) [21]
> Вопрос: чему будет равен cont?
>
NIL конечно. Но в представленном автором коде ничего такого нет. Я ж просто пытаюсь дать пример, как можно искать контролы в указанном случае. Если динамически много форм создавать, я бы лично сохранял указатели на них
← →
Pavelkq (2005-10-12 07:10) [22][19] Уже лучше, если считать, что компилятор не ругается. Но все равно не работает. Вот какие значения получаются:
par=(FcomponentStyle:[csInheritable];FDoubleBuffered:False;FInImeComposition:False;FDesignSize:(X:0; Y:0))
После выполнения
cont=(FcomponentStyle:[csInheritable])(cont as TRichEdit).Lines.Clear;
выводится ошибка Invalid class typecast.
← →
Pavelkq (2005-10-12 07:26) [23]Извеняюсь, друзья! По невнимательности присвоил имя не тому экземпляру. В действительности все заработало идеально! Огромное спасибо!
С удовольствием читаю статью предложенную Amoeba [12]
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];
Память: 0.52 MB
Время: 0.033 c