Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Люди, зовсім легкий питання! Посилання на процедуру, одним словом. Знайти схожі гілки


Serg5   (2001-12-19 15:14) [0]

procedure TForm1.Button1Click (Sender: TObject);
було
a, b: integer;
починати
a: = 3;
b: = 0;
b: = a * StrToInt (Edit4.Text) * StrToInt (Edit3.Text);
Label7.Caption: = IntToStr (b);
end;

procedure TForm1.Button2Click (Sender: TObject);
починати
Button1Click (); <<<< що тут їй написати ???
end;

Спасибо!



tovSuhov   (2001-12-19 15:20) [1]

Можна в Object Inspector`е події OnClick привласнити Button1Click, якщо в рун-таймі перевизначати події не знадобиться.



MBo   (2001-12-19 15:25) [2]

Sender і пиши, але простіше як tovSuhov написав або задати (хоч в TForm1.Create)
Button2.Onclick: = Button1Click;



Alexander   (2001-12-19 15:51) [3]

Пиши Button1Click (Self);



Mick   (2001-12-19 15:59) [4]

В даному конкретному випадку просто пиши Button1Click (nil);



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.56 MB
Час: 0.023 c
1-22135
DerZky
2001-12-19 19:51
2002.01.08
Як перенести файл, що запускається в іншу папку?


14-22347
roman001
2001-11-06 18:09
2002.01.08
Хостинг


1-22106
Andrey196
2001-12-19 18:24
2002.01.08
Вибачте за ламерскій питання як роздрукувати image


1-22034
Alexey_K
2001-12-15 16:35
2002.01.08
Форма


1-22128
vinni2000
2001-12-18 17:17
2002.01.08
RichEdit !!!!!!!!!!!!!!!!!





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська