Головна сторінка
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.82 MB
Час: 0.027 c
6-22313
SB
2001-10-01 15:05
2002.01.08
Допоможіть мережевого недоучки! пожайлуста


1-22137
AlexandrH_
2001-12-20 08:06
2002.01.08
Як в StringGride управляти фокусом.


1-22026
Romualds Stashans
2001-12-18 11:07
2002.01.08
Яким чином через Delphi можна запустити * .exe с ....


4-22503
Yura
2001-11-05 20:11
2002.01.08
Введення рядка у вікно


1-22144
shornik
2001-12-20 11:36
2002.01.08
Майстри !!!! Будь ласка допоможіть з проблемою!





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