процедуры клавиши мыши в delphi

@meteora92 · Регистрация: 02.10.2013

Author24 — интернет-сервис помощи студентам

Ребят подскажите процедуры к клавишам мыши:
При нажатии левой кнопки мыши текст выравнивается по нижней кромке окна, правой - по верхней кромке, при двойном щелчке левой клавиши мыши - по центру. При двойном щелчке правой - по правой кромке.

@j7777777 · 28.11.2013, 16:06

Примерно так:

Delphi

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssLeft in Shift then
 Label1.Align:=alBottom else
 Label1.Align:=alTop
end;

Delphi

procedure TForm1.Label1DblClick(Sender: TObject);
procedure TForm1.Label1DblClick(Sender: TObject);
begin
  Label1.Align:=alCustom;
  Label1.Left:=Form1.ClientWidth div 2 - Label1.Width div 2
end;

@meteora92 0 / 0 / 0 Регистрация: 02.10.2013 Сообщений: 5
		1
	процедуры клавиши мыши в delphi 27.11.2013, 21:12. Показов 1374. Ответов 1 Метки нет (Все метки) Ребят подскажите процедуры к клавишам мыши: При нажатии левой кнопки мыши текст выравнивается по нижней кромке окна, правой - по верхней кромке, при двойном щелчке левой клавиши мыши - по центру. При двойном щелчке правой - по правой кромке. 0

	28.11.2013, 16:06

процедуры клавиши мыши в delphi

Решение