Archive for the ‘Lain-lain’ Category

Mematikan Shortcut Ctrl+C dan Mengontrol Mouse Kanan

September 11, 2007

Mematikan shortcut ctrl+c
Pada event onKeyPress
if (ssCtrl in Shift) and (chr(Key) in [‘C’, ‘c’]) then key := #0;

megontrol mouse kanan;

1. dengan TapplicationEvent; itu u/ kontrol seluruh form;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
// Komponen TApplicationEvents -> OnMessage
if Msg.Message = WM_RBUTTONDOWN then Handled := True;
end;

2.pada memo itu sendiri
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
ShowMessage(‘Tidak Boleh Klik Kanan’);
end;

Advertisements

Croping Image :

September 11, 2007

Kalo mau codenya panjang mas

silahkan download di:
http://www.esnips.com/doc/df0aebc6-b957-43ac-b461-aa5263b47b1e/Croping-Image