OnObjectClick Event


Applies to

THtmlViewer, TFrameViewer, and TFrameBrowser components

Declaration

property OnObjectClick: TObjectClickEvent;

Description

The OnObjectClick event occurs when the mouse is left clicked on an Object. Currently, all Form controls support this event. See the TObjectClickEvent type for information on the parameters.

Example

The following handler will display the status of radio buttons and checkboxes whenever they are changed. Display only occurs for those controls having the OnClick="display" attribute:

procedure TForm1.ObjectClick(Sender, Obj: TObject; const OnClick: String);

var

S: string;

begin

if OnClick = 'display' then

begin

if Obj is TFormControlObj then

with TFormControlObj(Obj) do

begin

if TheControl is TCheckBox then

with TCheckBox(TheControl) do

begin

S := Value + ' is ';

if Checked then S := S + 'checked'

else S := S + 'unchecked';

MessageDlg(S, mtCustom, [mbOK], 0);

end

else if TheControl is TRadioButton then

with TRadioButton(TheControl) do

begin

S := Value + ' is checked';

MessageDlg(S, mtCustom, [mbOK], 0);

end;

end;

end;

end;

See also:

OnImageClick Event

OnImageOver Event