Nie ma "wyskoczyć" pomoc Windows'a tylko ta od Delphi. Jak używasz nowszego systemu typu Windows 7 i Delphi w wersji z plikiem pomocy w formacie hlp - to zainstaluj odpowiednią poprawkę Widnows Update do znalezienia w google, która dodaje program winhelp i pozwala obslugużyć ten format plików pomocy. A co do kodu to:
procedure TForm1.FormCreate(Sender : TObject);
begin
Application.Title := Caption;
end;
procedure TForm1.Button1Click(Sender : TObject);
begin
case MessageBox(Application.Handle,
'Będziesz się samodzielnie uczył podstaw, googlował, a później dopiero pytał na frum?',
PChar(Application.Title), MB_ICONQUESTION + MB_YESNOCANCEL) of
ID_YES : MessageBox(Application.Handle, 'To fajnie. Dom.',
PCHar(Application.Title), MB_ICONINFORMATION + MB_OK);
ID_NO : MessageBox(Application.Handle, 'Szkoda.',
PCHar(Application.Title), MB_ICONINFORMATION + MB_OK);
end;
end;
O to chodziło? I tak jak napisalem w przykładzie. Myśl, ucz się podstaw, googluj i dopiero pytaj.