onmouse event

[auditdi30]

Hello!

Using D7 and XP.

Is trying to make a onmouse event to a button working without success. I have the following code in my onmouse event;

if shift=[ssctrl] then form1.label1.caption:='Test';

But if I held down the Ctrl key and click the mouse, the label1 doesn't change. What is wrong??

And a second question; if I have a code in the onclick event, will that code be runnig before onmousedown event?

TIA
Kåre!

 

[towerbase]

What is an OnMouse event?

I'm assuming that you mean an OnMouseDown event. Your code should look something like this:

 if ssctrl in shift then begin
   form1.label1.caption:='Test';
 end;

You can easily determine which event should come first by writing something like this

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    memo1.lines.append ( 'down' );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.lines.append ( 'click' );
end;

Run the program, click on the button and see which event occurs first. Although if you think about it, it should be obvious.

Andrew
Hampshire, UK