Jump to content

UniPanel OnCollapse


Lena

Recommended Posts

How change UniPanel->Title when OnCollapse event fire? This code dosn't work correct.

Thanks.

void __fastcall TMainForm::UniPanel7Collapse(TObject *Sender)
{
  if(UniPanel7->CollapseDirection == cdBottom)
   {
	UniPanel7->Title = L"One";
   }

  if(UniPanel7->CollapseDirection == cdTop)
  {
	UniPanel7->Title = L"Two";
  }
}
Link to comment
Share on other sites

Hi,

 

If I understand you correctly, try:

procedure TMainForm.UniPanel1Collapse(Sender: TObject);
begin
  (Sender as TUniPanel).Title := 'Collapsed'
end;

procedure TMainForm.UniPanel1Expand(Sender: TObject);
begin
  (Sender as TUniPanel).Title := 'Expanded'
end;

Best regards.

Link to comment
Share on other sites

Thank you very much!

void __fastcall TMainForm::UniPanel7Collapse(TObject *Sender)
{
 TUniPanel * pan = dynamic_cast<TUniPanel*>(Sender);
 if(pan)
	{
	 pan->Title = L"One";
	}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::UniPanel7Expand(TObject *Sender)
{
 TUniPanel * pan = dynamic_cast<TUniPanel*>(Sender);
 if(pan)
	{
	 pan->Title = L"Two";
	}
}
Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...