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;
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;
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