Zdravím,
mám problém s procedurou ShowMessage. Když napíšu:
procedure ShowMessage(const Msg: string);
begin
ShowMessage('Ahoj')
end;
Tak program v pohodě spustím, ale žádná zpráva se mi neukáže!
Poraďte prosím.
Zdravím,
mám problém s procedurou ShowMessage. Když napíšu:
procedure ShowMessage(const Msg: string);
begin
ShowMessage('Ahoj')
end;
To Jakub Hora :
Vyvoláváš ji něčím? Já když dělal program na vysouvání a zasouvání CD/DVD tak jsem ji použil tlačítko a příkaz :
uses... MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
ShowMessage('DCD/DVD byl úspěšně vysunut')'
end;
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku