Форум: "Основная";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Вниз

OnClick = ButtonSendClick   Найти похожие ветки 

← →
BURN ©   (2005-12-08 13:50) [0]

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

..................
..................
 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-08 18:23) [1]

ButtonSend.OnClick := ButtonSendClick;

---

← →
BURN ©   (2005-12-09 09:22) [2]

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

---

← →
MBo ©   (2005-12-09 09:26) [3]

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

---

← →
Reindeer Moss Eater ©   (2005-12-09 09:27) [4]

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

---

← →
BURN ©   (2005-12-09 09:32) [5]

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

---

← →
Piero ©   (2005-12-09 10:47) [6]

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

---

← →
BURN ©   (2005-12-09 12:20) [7]

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

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 12:31) [8]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.013 c