var

  MainForm : TclForm;

  TestPanel : TclProPanel;

  InfoLbl : TClProLabel;

// 1. BASILINCA (MouseDown)

void onMyMouseDown;

{

  TestPanel.clProSettings.BackgroundColor = clAlphaColor.clRed; // Kırmızı yap

  TestPanel.SetclProSettings(TestPanel.clProSettings);

  InfoLbl.Text = 'Durum: BASILIYOR';

}

// 2. BIRAKILINCA (MouseUp)

void onMyMouseUp;

{

  TestPanel.clProSettings.BackgroundColor = clAlphaColor.clBlue; // Mavi yap

  TestPanel.SetclProSettings(TestPanel.clProSettings);

  InfoLbl.Text = 'Durum: BIRAKILDI';

}

// 3. HAREKET EDİNCE (MouseMove) ve KOORDİNATLAR

void onMyMouseMove;

{

  // Nesneye (Sender) göre koordinatları alıp ekrana yazıyoruz

  InfoLbl.Text = 'X: ' + IntToStr(MainForm.clSenderMousePosX) + 

                 ' - Y: ' + IntToStr(MainForm.clSenderMousePosY);

}

{

  MainForm = TclForm.Create(Self);

  

  // Bilgi Etiketi

  InfoLbl = MainForm.AddNewProLabel(MainForm, 'InfoLbl', 'Fareyi panelin üzerine getir...');

  InfoLbl.Align = alTop;

  InfoLbl.Height = 50;

  InfoLbl.clProSettings.FontSize = 20;

  InfoLbl.SetclProSettings(InfoLbl.clProSettings);

  // Test Paneli

  TestPanel = MainForm.AddNewProPanel(MainForm, 'TestPanel');

  TestPanel.Align = alCenter;

  TestPanel.Width = 250;

  TestPanel.Height = 250;

  TestPanel.clProSettings.BackgroundColor = clAlphaColor.clBlue;

  TestPanel.SetclProSettings(TestPanel.clProSettings);

  

  // --- SENİN YOLLADIĞIN DOĞRU EVENTLER ---

  MainForm.AddNewEvent(TestPanel, tbeOnMouseDown, 'onMyMouseDown');

  MainForm.AddNewEvent(TestPanel, tbeOnMouseUp, 'onMyMouseUp');

  MainForm.AddNewEvent(TestPanel, tbeOnMouseMove, 'onMyMouseMove');

  

  MainForm.Run;

}