HelpButton neden çıkmıyor olabilir.

[yakup]

Merhabalar, Helpbuttonu kullanmak istiyorum ,BorderIcon = [biSystemMenu,biHelp] ama neden görünmüyor ek bir ayar yapmama gerek var mı ?

 

[Sherzod]

Hello @yakup

Use ToolButtons:

[yakup]

i tried it before, it's not a stylish look.

[Hayri ASLAN]

Merhaba

Malesef oraya help button eklemenin baska yolu yok

[yakup]

Pekala , o şekilde ekledim. Ancak tüm formları tek tek gezmek istemediğim için MainModule'de halletmek istedim bu işi.

Bu şekilde güzel oldu ama şu şekilde bir sorunla karşılaştım bu sefer. Örneğin bir formu tam ekran açtım. Bu formun içinde başka bir formu açtığımda yeni açılan form anlık görünüp arkaya kaçıyor. 

procedure TUniMainModule.UniGUIMainModuleNewComponent(AComponent: TComponent);
var
  cName: string;
  uf : TUniForm;
begin
   try
     if (AComponent.Owner is TUniForm) then
     begin
       uf := (AComponent.Owner as TUniForm);
       if Assigned(uf.ToolButtons) then
       begin
        if uf.ToolButtons.Count = 0 then
        begin
          uf.ToolButtons.Add;
          uf.ToolButtons[0].Hint := 'Yardım';
          uf.ToolButtons[0].UI := uf.Name;
          uf.ToolButtons[0].Caption := uf.Name;
          TUniButtonItemY(uf.ToolButtons[0]).ToolType := 'help';
          uf.OnToolClick := UniToolButtonClick;
        end;
       end;
     end;
   except on E: Exception do
    //  ShowMessage( e.Message )
   end;
end;



procedure TUniMainModule.UniToolButtonClick(Sender: TUniCustomButtonItem);
begin

  try
    if Sender.Hint = 'Yardım' then
    begin
     HelpForm.HelpName := TUniCustomButtonItem(sender).UI;
     HelpForm.show;
    end;
  except on E: Exception do
    //  ShowMessage( e.Message )
  end;
end;

 

[Hayri ASLAN]

Ornek uygulama yapabilir misiniz?

 

[yakup]

Tam olarak bu oluyor.
Not: Unidbgrid kullandığım formlarımda olduğunu farkettim.

Project1.zip