CaptionStr:String; begin
CaptionStr:='';
if not InputQuery('Ввод имени',
'Введите заголовок элемента',CaptionStr) then exit;
Private
{ Private declarations }
function AddFile(FileMask: string; FFileAttr:DWORD): Boolean;
Объяви эту процедуру так же и потом нажми клавиши Ctrl+Shi
Implementation
Я специально объявил их там, чтобы показать тебе, как можно пользоваться функциями не принадлежащими ни одному объекту. Здесь функция SlashSep объявлена не внутри объекта, значит она никому
Implementation
Я специально объявил их там, чтобы показать тебе, как можно пользоваться функциями не принадлежащими ни одному объекту. Здесь функция SlashSep объявлена не внутри объекта, значит она никому
Procedure TForm1.ShowHint(Sender: TObject); begin
StatusBar1.SimpleText := Application.Hint; end;
Итак, наша процедура должна будет вызываться каждый раз, когда надо вывести подсказку. Внутри процедуры мы присваиваем в св
Procedure TForm1.ShowHint(Sender: TObject); begin
StatusBar1.Panels[1].Text := Application.Hint; end;
Здесь я присваиваю текст сообщения (Application.Hint) в свойство Text первой панели строки состояния.
Новости и инфо для студентов