Hi.
Also ich würde das so machen.
Linke Mausklicks kommen durch, rechte nicht.
Delphi-Quellcode:
procedure TForm3.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) or (msg.message = WM_RBUTTONDBLCLK) then
msg.message := 0;
end;
procedure TForm3.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Caption := Caption+'a';
end;