Controls

← →
Sabor (2002-09-23 21:15) [0]

У меня такой вопрос. В GroupBox-е есть Edit и ComboBox которые по нажатию button должны получать текст в окне. Пробовал через свойство Control GridBox-a - идет сообщение о несовместимости типов классов TControl и TEdit. Как нужно действовать?

← →
AL2002 (2002-09-23 21:20) [1]

>Sabor (23.09.02 21:15)
Подробней, пожалуйста. Очень уж заковыристо.

← →
Sabor (2002-09-23 21:31) [2]

Хочу сделать так, чтобы компоненты GroupBox (2 Edit-a и 2 Combobox-a при обработке сообщения ButtonClick в своих полях писали тексть "Delphi". Пытался произвести перебор элементов управления GroupBox-a и присвоить св-ву Text Edit-ов и СomboBox-ов значение "Delphi". Неполучилось?

← →
Кадастр и ты (2002-09-23 21:40) [3]

Да, тут можно только гадать. Погадаем.

← →
Кадастр и ты (2002-09-23 21:42) [4]

> Пытался

Так покажи, как пытался.

← →
Sabor (2002-09-23 21:52) [5]

procedure TForm2.Button1Click(Sender: TObject);

var i,j:integer;s:string;
ch:TControl;
ch3:Tcustomedit;
ch4:Tedit;

begin
for i:=0 to groupbox1.ControlCount-1 do
begin
ch:=groupbox1.Controls[i];
(ch as Tedit).text:="Delphi";

end;

← →
AL2002 (2002-09-23 22:13) [6]

В лейблаз не текст, а кепшн.

← →
Кадастр и ты (2002-09-23 23:24) [7]

if ch is TEdit then
ch4 := TEdit(ch) else
if ch is TBlaBlaBla then
Ch... := TBlaBlaBla(Ch)
etc

В таком духе

Controls Найти похожие ветки