Alguém pode ajudar?
-----
RODRIGO G. CUNHA
2009/3/27 Rodrigo Guimaraes <guimaraesrodr...@gmail.com>
> fala humberto,
>
> cara testei o exemplo e nada aconteceu.
> clicko no shape e nada acontece, abraço
> -----
> RODRIGO G. CUNHA
>
>
> 2009/3/27 humberto sales de oliveira <humberto_...@yahoo.com.br>
>
> unit Unit1;
>> interface
>> uses
>> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
>> Dialogs, ExtCtrls;
>>
>> type
>> TForm1 = class(TForm)
>> Shape1: TShape;
>> procedure FormCreate(Sender: TObject);
>> private
>> procedure shapeClick(Sender: TObject);
>> public
>> { Public declarations }
>> end;
>>
>> var
>> Form1: TForm1;
>>
>> implementation
>>
>> {$R *.dfm}
>>
>> procedure TForm1.shapeclick(Sender: TObject);
>> begin
>> showmessage('vc clicou o shape');
>> end;
>>
>> procedure TForm1.FormCreate(Sender: TObject);
>> begin
>> shape1.ControlStyle := shape1.ControlStyle + [csClickEvents];
>> TForm(shape1).OnClick := shapeClick;
>> end;
>>
>> end.
>>
>>
>>
>
>
[As partes desta mensagem que não continham texto foram removidas]
