Question

Створити обробник події МouseMove для другої кнопки, виконання якого встановить: • Жовтий фону напису, • відступ напису від верхньої межі 300 пікселів, • збільшить відступ напису від лівої межі на 20 пікселів установить колір тексту синій і виведе текст «Я вивчаю Lazarus> В Активація​

Answer 1

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;