А, не знал про такой...
352 2020-03-02 18:27:57
Re: Расположение файлов (5 replies, posted in Russian)
В текущей версии нет возможности узнать местоположение sqlite.db
Можно так:
with TIniFile.Create(ExtractFilePath(Application.ExeName)+
'settings.ini') do
begin
ShowMessage(
'Тип: ' + ReadString('Options','DBMS','') + #13#10 +
'Путь: ' + ReadString('Options','server','')
);
Free;
end;
353 2020-02-28 23:14:51
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
Ctrl + C попробуйте нажать...
354 2020-02-13 20:24:34
Re: [решено] Размер Label (15 replies, posted in Russian)
Обычно по умолчанию включена оптимизация выполнения условий IF <выражение> AND <выражение> - если первое выражение в условии равно FALSE, то второе не будет проверяться. Поэтому можно оставить так как есть.
Можно и так, но визуально лучше воспринимается цепочка (имхо).
Так еще можно:
case TdbButton(Sender).Name of 'Button1' : Inc(TLabel(Form1.Components[ i ]).Font.Size); 'Button2' : Dec(TLabel(Form1.Components[ i ]).Font.Size); end;
355 2020-02-13 19:43:01
Re: Sender - TButton.Caption (2 replies, posted in Russian)
procedure SetText(Sender: TObject);
begin
Form1.Edit1.Text := Form1.Edit1.Text + ' '+TdbButton(Sender).Caption;
end;
procedure Form1_Button3_OnClick (Sender: TObject; var Cancel: boolean);
begin SetText(Sender); end;
procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
begin SetText(Sender); end;
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin SetText(Sender); end;
begin
end.
356 2020-02-12 07:39:04
Re: [решено] Размер Label (15 replies, posted in Russian)
Сначала проверяем label и если label - проверяем parent
358 2020-02-09 19:13:28
Re: [решено] Размер Label (15 replies, posted in Russian)
..Label.Parent:=TScrollBox;..
Осталось добавить if.
359 2019-11-15 07:16:11
Re: Подтянуть данные с сайта (2 replies, posted in Russian)
Делаю такое под заказ.