Створити обробник події МouseMove для другої кнопки, виконання якого встановить: • Жовтий фону напису, • відступ напису від верхньої межі 300 пікселів, • збільшить відступ напису від лівої межі на 20 пікселів установить колір тексту синій і виведе текст «Я вивчаю Lazarus> В Активація
More Questions From This User See All
Answers & Comments
procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
// Перевіряємо, що права кнопка миші була натиснута
if ssRight in Shift then
begin
// Встановлюємо жовтий фон напису
Label1.Color := clYellow;
// Встановлюємо відступ від верхньої межі на 300 пікселів
Label1.Top := 300;
// Збільшуємо відступ від лівої межі на 20 пікселів
Label1.Left := Label1.Left + 20;
// Встановлюємо синій колір тексту
Label1.Font.Color := clBlue;
// Виводимо текст "Я вивчаю Lazarus > В Активація"
Label1.Caption := 'Я вивчаю Lazarus > В Активація';
end;
end;