dokneh
پنج شنبه 16 آبان 1387, 00:09 صبح
type
B1: TButton;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Shift = [ssLeft,ssShift] then
B1.Caption:='Left Shift'
else if Shift = [ssLeft,ssCtrl] then
B1.Caption:='Left Ctrl'
else if Shift = [ssLeft,ssAlt] then
B1.Caption:='Left Alt'
else if Shift = [ssLeft] then
B1.Caption:='Left'
else if Shift = [ssRight,ssShift] then
B1.Caption:='Right Shift'
else if Shift = [ssRight,ssCtrl] then
B1.Caption:='Right Ctrl'
else if Shift = [ssRight,ssAlt] then
B1.Caption:='Right Alt'
else if Shift = [ssRight] then
B1.Caption:='Right';
end;
B1: TButton;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Shift = [ssLeft,ssShift] then
B1.Caption:='Left Shift'
else if Shift = [ssLeft,ssCtrl] then
B1.Caption:='Left Ctrl'
else if Shift = [ssLeft,ssAlt] then
B1.Caption:='Left Alt'
else if Shift = [ssLeft] then
B1.Caption:='Left'
else if Shift = [ssRight,ssShift] then
B1.Caption:='Right Shift'
else if Shift = [ssRight,ssCtrl] then
B1.Caption:='Right Ctrl'
else if Shift = [ssRight,ssAlt] then
B1.Caption:='Right Alt'
else if Shift = [ssRight] then
B1.Caption:='Right';
end;