Выполнение процедуры на событие в другой процедуре

← →
johny (2003-08-25 13:14) [0]

Здравствуйте!
Подскажите как делать : Существует обработчик событий OnChange компонента ComboBox1.
Как вызвать эту процедуру например из OnClick
Заранее благодарен!

← →
Skier (2003-08-25 13:15) [1]

>johny © (25.08.03 13:14)
Дык...обработчик OnChange и вызови.

← →
johny (2003-08-25 13:19) [2]

ды я пытаюсь : ComboBox1Change;
он говорит что нет пораметров ((((

← →
johny (2003-08-25 13:19) [3]

дык я пытаюсь : ComboBox1Change;
он говорит что нет пораметров ((((

← →
unreger (2003-08-25 13:21) [4]

ComboBox1Change(self);
че-то такое

← →
Андрей Сенченко (2003-08-25 13:22) [5]

Прямо в Object Inspector зайди на вкладку Events и выбьери для OnChange нужную процедуру

← →
Skier (2003-08-25 13:22) [6]

ComboBox1Change(ComboBox1);

← →
johny (2003-08-25 13:28) [7]

на ComboBox1Change(ComboBox1); он говорит statement expected BUT "PROCEDURE" FOUND
и на ComboBox1Change(self); тоже самое ((((

← →
Skier (2003-08-25 13:30) [8]

Код.

← →
johny (2003-08-25 13:31) [9]

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i:integer;
s,A:string;
begin
if ListBox1.ItemIndex=-1 then exit;
i:=ComboBox1.ItemIndex;
if i=0 then begin s:="REM";
if i=1 then begin s:="MAIL";
A:="DELETE FROM "+S+" WHERE "+ListBox1.Items.Text;
Query1.SQL.Text:=a;
Query1.ExecSQL;
ComboBox1Change(self);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
i:integer;
a,b:string;
begin
ListBox1.Clear;
i:=ComboBox1.ItemIndex;
if i=0 then begin
a:="SELECT REM FROM REM";
b:="REM";
end;
if i=1 then begin
a:="SELECT mail FROM mail";
b:="mail";
end;
Query1.SQL.Text:=a;
if opensql1=false then Close;
Query1.First;
for i:=1 to Query1.RecordCount do
begin
ListBox1.Items.Add(Query1.fieldbyname(b).AsString);
Query1.Next;
end;

← →
Camus (2003-08-25 13:31) [10]

> johny © (25.08.03 13:28) [7]

ComboBox1Change ни при чем. У Вас где-то перед словом procedure пропущено слово end (то есть, не закончена предыдущая прцедура).

← →
Camus (2003-08-25 13:34) [11]

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i:integer;
s,A:string;
begin
if ListBox1.ItemIndex=-1 then exit;
i:=ComboBox1.ItemIndex;
if i=0 then begin s:="REM";
if i=1 then begin s:="MAIL";
A:="DELETE FROM "+S+" WHERE "+ListBox1.Items.Text;
Query1.SQL.Text:=a;
Query1.ExecSQL;
ComboBox1Change(self);
end;

Закрывать begin"ы Вы доверили Пушкину?
Это к вопросу о пользе аккуратного форматирования кода.

← →
johny (2003-08-25 13:37) [12]

я все преверил и вы посмотрите внимательно все бегины закрыты!
(((
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i:integer;
a,b:string;
begin
ListBox1.Clear;
i:=ComboBox1.ItemIndex;
if i=0 then
begin
a:="SELECT REM FROM REM";
b:="REM";
end;
if i=1 then
begin
a:="SELECT mail FROM mail";
b:="mail";
end;
Query1.SQL.Text:=a;
if opensql1=false then Close;
Query1.First;
for i:=1 to Query1.RecordCount do
begin
ListBox1.Items.Add(Query1.fieldbyname(b).AsString);
Query1.Next;
end;
end;

← →
Palladin (2003-08-25 13:39) [13]

> johny © (25.08.03 13:37) [12]

ты не там проверил, и не то показал

← →
Skier (2003-08-25 13:40) [14]

>johny © (25.08.03 13:31) [9]
Ё ! Горорят же смотри procedure TForm1. BitBtn2Click(Sender: TObject);

← →
johny (2003-08-25 13:40) [15]

самый простой пример !
и begin тут непричем
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ComboBox1Change(self);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ShowMessage("dsfsdafsdfs");
end;

← →
johny (2003-08-25 13:43) [16]

Огромное спосибо все !
Извиняюсь за невнимательность!
ВСЕМ ВСЕМ ВСЕМ С П О С И Б О !!!!!!!!! ))))

← →
Palladin (2003-08-25 13:44) [17]

ты трудный чтоли?

← →
Camus (2003-08-25 13:45) [18]

> johny © (25.08.03 13:40) [15]

Вы ответы читаете? Я же специально выделил незакрытые begin"ы жирным шрифтом. О чем спорить?

← →
Palladin (2003-08-25 13:45) [19]

← →
Camus (2003-08-25 13:46) [20]

Выполнение процедуры на событие в другой процедуре Найти похожие ветки