FreePascal.ru

yanis

Разумеется, не знает.
Спасибо, подзадача решена!
Матчасть учу. Такой вот "Hello World" у меня.

yanis

Начну с части кода:

var
Root2FormControls: Array of TControl;
...
case db_form_text.Strings[i+1] of
'TLabeledEdit': begin
CRef := GetClass('TLabeledEdit');
if CRef <> nil then begin
Root2FormControls[j] := TLabeledEdit.Create(TabSheet3 ...

yanis

Спасибо, вы совершенно правы.
Еще хочу добавить, что вредно работать по ночам...
Я вчера проверял запрос без названий полей - не работал, потому что я мистическим образом поставил свойство грида dgEditing := False

yanis

Здравствуйте.
Имеется следующая процедурка:
procedure TfrmReferences.TabSheet1Show(Sender: TObject);
var
zq: TZQuery;
zu: TZUpdateSQL;
ds: TDataSource;
begin
zq := TZQuery.Create(Self);
zq.Connection := frmMain.ZConnection1;
zq.SQL.Clear;
zq ...

yanis

Спасибо за направление, все глаза проглядел, а нужного свойства не видел.
Работающий код

Код: Выделить всё

for i:=0 to ControlCount-1 do
         showmessage(Controls[i].Name);

yanis

Здравствуйте.

Возможно ли в Лазарусе перебрать все контролы внутри текущего, примерно как ниже написано?

Код: Выделить всё

Dim ctl As Control
For Each ctl In Me.Controls
  Debug.Print ctl.Name
Next ctl

Заранее спасибо.

FreePascal.ru

Найдено 6 результатов

Re: Динамическое создание "сложных" контролов

Динамическое создание "сложных" контролов

Re: Read-only ZQuery?

Read-only ZQuery?

Re: Коллекция контролов на форме (или странице, например)

Коллекция контролов на форме (или странице, например)