| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

OnClick = ButtonSendClick [D7, WinXP]

BURN ©   (2005-12-08 13:50:00) 

Все компоненты созданы динамически, все вроде пока норнально, за исключением того , что не могу нажать на кнопку. При клике ничего не происходит. Как это реализовать ?

..................
..................
 ButtonSend:=TButton.Create(Frm);
 with ButtonSend do
 begin
 Parent:=Frm;
   Left := 264;
   Top := 64;
   Width := 75;
   Height := 25;
   Caption := 'SendMSG';
   TabOrder := 1;
 end;
..................
..................


---

Piero   (2005-12-09 12:31:00) [1]

задавай конкретный вопрос, а это никто читать не будет

---

BURN   (2005-12-09 12:20:00) [2]

В дркгих приложеениях все работает нориально, но в этом отказыывается. Подскажите где ошибка.

library dtemplate;
uses

 Windows,Classes,Messages, SysUtils, Variants, Graphics, Controls, Forms,
 Dialogs, StdCtrls,ShlOBJ, ExtCtrls, IdSMTP,IdMessage,ComCtrls,

 
 newpluginapi in '..\units\newpluginapi.pas',
 globals in '..\units\globals.pas',
 m_clist in '..\headerfiles\m_clist.pas',
 statusmodes in '..\units\statusmodes.pas',
 m_system in '..\headerfiles\m_system.pas',
 m_plugins in '..\headerfiles\m_plugins.pas',
 m_skin in '..\headerfiles\m_skin.pas',
 langpacktools in '..\headerfiles\langpacktools.pas',
 skintools in '..\units\skintools.pas';

type
 TFrm = class(TForm)
 IdSMTP1: TIdSMTP;
 IdMessage1: TIdMessage;
 ButtonSend: TButton;
 procedure ButtonsendClick(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declaratio}
 end;

{$R *.RES}

var
 Frm: TForm;
 IdSMTP1: TIdSMTP;
 IdMessage1: TIdMessage;
 ButtonSend, New: TButton;
 MemoMSG:TMemo;
 LabeledEditTo: TLabeledEdit;
 LabeledEditSubject: TLabeledEdit;

//-------------------------------------------------------------------------------
//
//-------------------------------------------------------------------------------

Procedure TFrm.ButtonSendClick( Sender : TObject );
Var Value : String;
Begin
   MessageDlg('Нажата кнопка '+TControl(Sender).Name ,mtInformation,[mbOk],0);
End;

//-------------------------------------------------------------------------------

procedure TFrmButtonsendClick(Sender: TObject);
begin
 //idSmtp1.OnStatus := IdSMTP1Status;
 IdSMTP1.Host:='smtp.*****.**';
 IdSMTP1.Password:='******';
 IdSMTP1.Connect;

 IdMessage1.From.Address:='*****@*****.**';
 //IdMessage1.AddHeader('***');
 //IdMessage1.Recipients[0].Address:='*****@*****.**';
 IdMessage1.Recipients.EMailAddresses:=LabeledEditTo.Text;
 IdMessage1.Subject:=LabeledEditSubject.Text;
 IdMessage1.Body:=MemoMSG.Lines;

 try
 IdSMTP1.Send(idmessage1);
 finally
 ShowMessage('Mail sent !');
 IdSMTP1.Disconnect;
 end;
end;

//-------------------------------------------------------------------------------

function MirandaPluginInfo(mirandaVersion:DWord):PPLUGININFO;cdecl;
begin
 PluginInfo.cbSize:=sizeof(TPLUGININFO);
 PluginInfo.shortName:='BMail';
 PluginInfo.version:=PLUGIN_MAKE_VERSION(0,0,1,2);
 PluginInfo.description:='Плагин для отправки почты из Mirands IM.';
 PluginInfo.author:='BURN';
 PluginInfo.authorEmail:='burns777@atnet.ru';
 PluginInfo.copyright:='© NHS Zone0';
 PluginInfo.homepage:=' http://www.sever.ath.cx';
 PluginInfo.isTransient:=0;
 PluginInfo.replacesDefaultModule:=0;

 Result:=@PluginInfo;
end;

//-------------------------------------------------------------------------------

function OnModulesLoad(wParam,lParam:DWord):integer;cdecl;forward;

//-------------------------------------------------------------------------------

function Load(link:PPLUGINLINK):Integer;cdecl;
begin
 PluginLink:=link^;
 PluginLink.HookEvent(ME_SYSTEM_MODULESLOADED,OnModulesLoad);
 Result:=0;
end;

//-------------------------------------------------------------------------------

function Unload:Integer;cdecl;
begin
 Result:=0;
end;

//-------------------------------------------------------------------------------

function PluginMenuCommand(wParam,lParam{0}:DWord):integer;cdecl;
begin
 frm:=Tform.CreateNew(Frm,1 );
 with Frm do
 begin
 Left := 136;
 Top := 102;
 Width := 504;
 Height := 364;
 Caption := 'BurnMail';
 Color := clBtnFace;
 Font.Charset := RUSSIAN_CHARSET;
 Font.Color := clWindowText;
 Font.Height := -13;
 Font.Name := 'Times New Roman';
 Font.Style := [fsBold];
 OldCreateOrder := True;
 PixelsPerInch := 96;
 end;

//-------------------------------------------------------------------------------

 MemoMSG:=TMemo.Create(Frm);
 with MemoMSG do
 begin
 Parent:=Frm;
   Left := 16;
   Top := 96;
   Width := 473;
   Height := 225;
   ScrollBars := ssBoth;
   TabOrder := 0;
 end;                  //

//-------------------------------------------------------------------------------

 ButtonSend:=TButton.Create(Frm);
 with ButtonSend do
 begin
 Parent:=Frm;
   Left := 264;
   Top := 64;
   Width := 75;
   Height := 25;
   Caption := 'SendMSG';
   TabOrder := 1;
   OnClick := ButtonSendClick;
 end;

//-------------------------------------------------------------------------------

 LabeledEditTo:=TLabeledEdit.Create(Frm);
 with LabeledEditTo do
 begin
 Parent:=Frm;
   Left := 16;
   Top := 24;
   Width := 241;
   Height := 23;
   EditLabel.Width := 53;
   EditLabel.Height := 15;
   EditLabel.Caption := 'ToAdress';
   TabOrder := 2;
 end;

//-------------------------------------------------------------------------------

 LabeledEditSubject:=TLabeledEdit.Create(Frm);
 with LabeledEditSubject do
 begin
 Parent:=Frm;
   Left := 16;
   Top := 64;
   Width := 241;
   Height := 23;
   EditLabel.Width := 41;
   EditLabel.Height := 15;
   EditLabel.Caption := 'Subject';
   TabOrder := 3;
 end;

//-------------------------------------------------------------------------------

 IdSMTP1:=TIdSMTP.Create(Frm);
with IdSMTP1 do
 begin
   //Parent:=Frm;
   //OnStatus := IdSMTP1Status;
   //MaxLineAction := maException;
   ReadTimeout := 0;
   Host := 'smtp.*****.**';
   Port := 25;
   AuthenticationType := atLogin;
   Password := '*****';
   Username := '*****';
   //Left := 80;
   //Top := 320;
 end;

//-------------------------------------------------------------------------------

 IdMessage1:=TIdMessage.Create(Frm);
 with IdMessage1 do
 begin
   IdMessage1:=TIdMessage.Create(Frm);
   AttachmentEncoding := 'MIME';
   Encoding := meMIME;
 end;

Frm.Show;

end;

//-------------------------------------------------------------------------------

function OnModulesLoad(wParam{0},lParam{0}:DWord):integer;cdecl;
var
 menuitem:TCLISTMENUITEM;
begin
 PluginLink.CreateServiceFunction('PluginTemplate/MenuCommand',PluginMenuCommand);

 menuitem.cbSize:=sizeof(menuitem);
 menuitem.Position:=-$7FFFFFFF;
 menuitem.flags:=0;
 menuitem.hIcon:=LoadSkinnedIcon(PluginLink,SKINICON_OTHER_MIRANDA);
 menuitem.pszContactOwner:=nil;
 menuitem.pszName:='&BMail Messager';
 menuitem.pszService:='PluginTemplate/MenuCommand';
 PluginLink.CallService(MS_CLIST_ADDCONTACTMENUITEM,0,DWord(@menuitem));

 Result:=0;
end;

//-------------------------------------------------------------------------------
//-------------------------------------------------------------------------------

exports
 MirandaPluginInfo,
 Load,
 Unload;

//-------------------------------------------------------------------------------

begin
end.


---

Piero   (2005-12-09 10:47:00) [3]

Ты должен заранее создать обработчик  ButtonSendClick, а после создания кнопки, пишешь, что бы он вызывался  при нажатии клавиши -
ButtonSend.OnClick := ButtonSendClick;

---

BURN   (2005-12-09 09:32:00) [4]

Да тоцнее не бывает. Большое спасибо за помощь.

---

Reindeer Moss Eater   (2005-12-09 09:27:00) [5]

Точнее этого не придумаешь

---

MBo   (2005-12-09 09:26:00) [6]

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342

---

BURN   (2005-12-09 09:22:00) [7]

Можно немного поточнее :) ?

---

Piero   (2005-12-08 18:23:00) [8]

ButtonSend.OnClick := ButtonSendClick;

---

Наверх