7/30/2015

Criar ajuda / criar help

Cria um form
adiciona um

tlistbox 
align : alLeft

TMemo
align: alClient
ScrollBars: ssVertical

procedure TForm2.FormCreate(Sender: TObject);
begin
  ListBox1.ItemIndex := 1;
  if ListBox1.ItemIndex = 1 then
  Memo1.Visible := true;
end;


procedure TfrmAjuda.ListBox1Click(Sender: TObject);
begin
  if ListBox1.ItemIndex = 0 then
    mmSomar.Visible := true
  else
    mmSomar.Visible := false;

  if ListBox1.ItemIndex = 1 then
    mmDividir.Visible := true
  else
    mmDividir.Visible := false;

  if ListBox1.ItemIndex = 2 then
    mmMultiplicar.Visible := true
  else
    mmMultiplicar.Visible := false;

end;
  end;


ou pode criar um ajuda com html help workshop

e chamar ele da seguinte forma

declara a biblioteca em uses
ShellApi

procedure TForm2.Button1Click(Sender: TObject);
begin
ShellExecute (0, Nil, Pchar('C:\Users\MDPC\Desktop\delphi\AJUDA\ajuda.chm'), Nil, Nil, SW_ShowMaximized);
end;

Nenhum comentário:

Postar um comentário