Цитата:
|
Сообщение от NumLock
Код:
TEdit(Form1.FindComponent('Edit'+IntToStr(1))).Text:='Ok'; |
ОГРОМНОЕ спасибо!
Цитата:
|
Сообщение от NumLock
добавить в uses StdCtrls
|
А вот ещё к Вам вопрос. Я проверил это работает с "эдитами" и "лейблами" а вот с трекбаром уже не канает... есть ли ещё какие-то перехватчики класов?
Спасибо.
Понял, туплю... нужно добавить ComCtrls=)
Продолжаю я свою оптимизацию кода...
У меня на GroupBox, есть порядка 20-ти элементов shape. Они у меня по задумке должны играть роль кнопок. Но не хотелось бы создавать на каждый из них обработчик
Код:
procedure TMainForm.Shape20MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
А сделать один обработчик для GroupBox
Код:
procedure TMainForm.GroupBox1Click(Sender: TObject)
Как при этом можно отследить на какой из шейпов было нажато? Все элементы Shape созданы вручную, а не программно...
Код:
procedure TMainForm.GroupBox1Click(Sender: TObject)
var
j:byte;
begin
for j:=1 to 20 do begin
//проверяем все по очереди не он ли нажат
//если "shape(j)" нажат то изменяем какую-то переменную из массива x[j]:=1;
end;
end;
Спасибо. Не судите строго, я только учусь....