Hi, Farshad
[DCC error] Unit1.pas(31): E2009 not compatible in a model: A method pointer and normal procedure
The problem was settled
Thanks
Unit all Source code
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUIFrame, uniGUIBaseClasses, UniGUIDialogs,
uniButton, uniMemo;
type
TUniFrame1 = class(TUniFrame)
UniButton1: TUniButton;
UniMemo1: TUniMemo;
procedure UniButton1Click(Sender: TObject);
private
public
end;
implementation
{$R *.dfm}
procedure TUniFrame1.UniButton1Click(Sender: TObject);
begin
// MessageDlg('TUniFrame.MessageDlg',mtInformation, [mbOk],
UniGUIDialogs.MessageDlg('TUniFrame.MessageDlg',mtInformation, [mbOk],
procedure(Res: Integer)
begin
UniMemo1.Lines.Add(IntToStr(Res));
end
);
end;
end.